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Foreword 


This is not a ‘how to use your machine’ book as we assume that the 
user will already have a working knowledge of the main commands 
on the Atmos keyboard. The intention of this collection of 
programs is to help the young user to become more familiar with 
their computer, improve their knowledge and have fun at the same 
time. None of the programs is of great length as we are aware that 
younger users will want to see the results of their planning as soon 
as possible. 


Virtually all of the programs will have a ‘games’ element to 
encourage the user to beat the machine. In some programs the 
junior programmer will be typing in the answers to the questions 
which the machine will eventually ask. In order to remove the 
certainty of a correct answer however, the computer will be 
requested to make random choices from the information given. 


As can be seen from the contents list the programs cover a wide 
area of interest including mathematics, geography, grammar, 
weights and measures and music. 


The programs have been designed so that they can be adapted to 
include more complex questions and so increase the user’s ability. 


Introduction 


This collection of programs has been written for junior users to pit 
their wits and test their knowledge. 


We have designed these programs so you can learn how to use your 
Atmos computer by typing in your own information. None of the 
programs is too long to input into your machine as the idea is to 
help you sharpen up your mind - not to turn you into a typist. 


Once the program is in the machine you will be able to begin 
answering the questions and improving your knowledge. The 
faster you respond the quicker the computer will ask you the next 
question. 


You will be surprised how quickly you will learn how to use your 
Atmos, and how soon you will want to move on to the next 
program. 


As soon as you know how to enter these programs - and beat the 
Atmos - you will be able to change the content in the lists and make 
things even more difficult for yourself. 


Things to remember 


Your Atmos works with it’s own language called BASIC. If you try 
to ‘speak’ to your machine in another language then nothing will 
happen, except that you will get a nasty message which says ‘error 
in line’. 


Programming is not like writing an essay for class. Your teacher 
might let you off with a mild caution if you miss out a comma - your 
Atmos will not. 


You have to follow, exactly, the ‘characters’ shown on the program 
listings in this book. If you miss a comma, or enter a dash by error, 
then the program will not work. You cannot put in any other 
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instruction and expect the machine to work. If you have typed in 
your program and the Atmos will not ‘run’ as instructed, then you 
will have to check your ‘list’ against the book for ‘bugs’. Check 
carefully before you decide to throw your machine out of the 
nearest window! 


We know that the programs listed in the book are ‘bug free’ 
because, not only have we checked and double-checked them, we 
have reproduced them from our Atmos using a mechanical printer. 


We did this because it makes things easier for you and also for our 
own printers when they produce our books. If you are really having 
trouble however you can always ask your parents. They should be 
able to help you. 


Cassette Storage 


Once you have gone through ‘inputting’ your programs you can 
store them on cassette tapes for future use. 


Cassette tapes will take up some of your pocket money but they 
mean that you will always have quick access to your list of 
programs. 


Having your programs on tape also means that, when you have 
improved your programming skills, you will be able to rewrite the 
programs we have given you. 


1 
Counties 





A few years ago the Government changed the names of most of the 
counties in England, Wales and Scotland. Some people still call 
them by their old names so we have come up with this program to 
help you make sure you know the new names and where they are. 


Your computer knows where Gwent is - do you? 


How to play 


The computer will draw an outline map for you and give you a list 
of ten county names to choose from. 


The computer will then choose, at random, an area for you to 
identify. A flashing sign will indicate the area in question. Type in 
your answers in CAPITALS. 
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Tries and scores are shown on the screen. 


If you are wrong it will be a case of try, try again until you get it 
right. 


Programming Notes 


This program uses the same map drawing routine as ‘towns’ and 
‘compass’. See the introduction to ‘towns’ before typing in 
‘counties’. The column and row position for the flashing dot and 
county name is held in the data statements in lines 900 to 990. If 
your own county is not here, why not try and insert its name and 
position? 


Program 


1@ REM COUNTIES 
2@ PAPER @: INK 6 

3@ HIRES 

5@ FOR J=1 TO 1@ 

6@ READ M(J,1),M(J,2) ,T#(J) 

7@ NEXT J 

8@ GOTO 14@ 

9@ REM DRAW MAP 

1@@ CURSET 12,185,1 

11@ READ X,Y 

111 IF X=-99 THEN RETURN 

112 IF X>3@ THEN CURSET X,Y,1:GOTO 110 
120 DRAW X,Y,1 

13@ GOTO 11a 

140 GOSUB 9a 

16@ FOR K=1 TO 10 

162 PRINT T#(K):PRINT 

164 FOR C=1 TO 1@ 

166 CURSET M(K,1),M(K,2) ,@:CIRCLE 3,1 
174 WAIT 20 

176 CURSET M(K,1),M(K,2) ,@:CIRCLE 3,2 
177 WAIT 20 

178 NEXT C 

180 NEXT K 

181 WAIT 220 

182 R=INT(RND(1)#1@) +1 
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184 
iva 
192 
194 
196 
198 
240 
218 
226 
2358 
248 
238 
268 
=76 
274 
=8@ 
20a 
310 
328 
334 
348 
70a 
910 
e206 
938 
746 
938 
960 
978 
78a 
998 


FOR C=1 TO 5 


WAIT 18 


WAIT 108 
NEXT C 
PRINT 
PRINT 
INPUT 


TR=TR+1 

IF A#=TS(R) 
EXPLODE 
PRINT 
WAIT 200 
GOTO i84 
FING 
PRINT 
SC=SC+1 
WAIT 288 
GOTO 182 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CURSET M(R,1), 


CURSET M(R,1), 


CURSET M(R,1), 


THEN 


M(R,2),@:CIRCLE 3,8 


M(R,2),@:CIRCLE 3,1 


"TRIES: "3TR 
"SCORE: "3SC 
"WHICH COUNTY IS THIS"; A¢ 


M(R,2),@:CIRCLE 3,@ 


588 


"TRY AGAIN!" 


"CORRECT!" 


76,65, "CLWYD" 
30,180, "CORNWALL" 
50,122,"DYFED" 
82,128, "GWENT" 
113,155, "HAMPSHIRE" 
132,50, "HUMBERSIDE" 
163,147, "KENT" 
85,50, "MERSEYSIDE" 
145,88, "NORFOLK" 
120,38, "YORKSHIRE" 


1@0@ DATA 5,-5,2,2,13,-9,1,-4,2,8,8,-2, 


2,0,5,-10,3,-7,5,9, 


1,-5 


1010 DATA 18,-3,12,2,3 9-15 25—S 959-3545 


10,-18,7,-5,1,-3,4 


10@2@ DATA -4,@,-9, 
y9_735-4,5,8,8,-2,- 


-7,-9,08,8,-3,-5,-2,-9 
7,@ 


1830 DATA @,-2,3,0,0,-3,-3,0,5,-5,35,0,1 
7,-15,2,-5,—-2,-18,-2,-4 
1040 DATA 1,-2,—-10,—-5,—-3,—-2575—-75135-9, 


Dy 2y7y—3_ dy 35-35 —4 


105@ DATA 6,4,5,-3,-6,8,-5,-7,3,-5,8,—-3 


»-7,0,8,-8,8,-6,-4, 
1966 DATA 1,-4,-2, 


s—J,120,21 


2 
2y—25-2,-9,4,-9,-15,4 


107@ 
3,8,4 
19809 
8,2,- 
1090 
5,5,0 
1108 
3,1,@8 
1110 
Aya, 
1120 
g2g—2 
1130 


yi,-5 


1148 
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DATA 1,2,-254,55—154,0,12,13,—-353, 
53 

DATA @,2,-8,-4,8,6,5,6,8,5,-5,6,8, 
9,6,-2 


DATA 7,2,8,4,3,12,—-2,14,-9,14,-12, 
DATA @,5,-18,6,5,1,—-3,2,6,35,12,-2, 
»25-4,1 

DATA 2,3,-556,—-253,-4,-1,-18,12,-1 
-2,3 

DATA -10,1,@,1,--19,-4,-19,2,-9,1,2 
2,2,-9,-4 


DATA —-8,2,-46,3,—-5,12,-4,1,-8,-5,-7 
»4,-1,-2 


DATA -—2,2,0,4,5—453 5-65-59 -6555-557- 


3,106,167,4,-2 


1150 DATA 6,2,-4,4,-5,—-4,155,135,4,8,8, 
2,-2,8,-2,-2 

1160 DATA 53,62,8,-5,-18,—-5,—-3,3,08,2,3, 
6,-99,8 


i@ R 


EM COUNTIES 


14 REM SCOTLAND & NI 


20 P 


APER @: INK 6 


3@ HIRES 


5@ F 


OR J=1 TO 10 


6@ READ M(J,1) ,M(J,2) ,T#OI) 


76 N 


EXT J 


80 GOTO 148 


90 R 
100 
110 
pe Be | 
112 
120 
138 
148 
160 
162 
164 
166 
174 


EM DRAW MAP 

CURSET 38,172,1 

READ X,Y 

IF X=-99 THEN RETURN 

IF X>3@ THEN CURSET X,Y,1:GOTO 110 
DRAW X,Y,1 

GOTO 110 

GOSUB 9@ 

FOR K=1 TO 18 

PRINT T#(K):PRINT 

FOR C=i TO 10 

CURSET M(K,1),M(K,2) ,@:CIRCLE 3,1 
WAIT 2a 
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176 CURSET M(K,1),M(K,2) ,@:CIRCLE 3,8 
177 WAIT 20 
178 NEXT C 
180 NEXT K 
181 WAIT 200 
182 R=INT(RND(1)*1@) +1 
184 FOR C=1 TO 5 
198 CURSET M(R,1),M(R,2),@:CIRCLE 3,0 
192 WAIT 10 
194 CURSET M(R,1),M(R,2),@:CIRCLE 3,1 
196 WAIT 10 
198 NEXT C 
2@@ PRINT "TRIES: ";TR 
210 PRINT "SCORE: ";SC 
220 INPUT "WHICH COUNTY IS THIS";A¢ 
23@ CURSET M(R,1),M(R,2),@:CIRCLE 3,0 
240 TR=TR+1 
250 IF A$=T$(R) THEN 300 
26@ EXPLODE 
278 PRINT "TRY AGAIN!" 
274 WAIT 200 
280 GOTO 184 
3@@ PING 
310 PRINT "CORRECT!" 
320 SC=SC+1 
334 WAIT 200 
340 GOTO 182 
988 DATA 52,145, "ANTRIM"” 
91@ DATA 162,145, "BORDERS" 
920 DATA 408,162, "DOWN" 
930 DATA 10,1465, "FERMANAGH" 
940 DATA 150,102,"FIFE" 
950 DATA 165,54, "GRAMPIAN" 
960 DATA 120,27,"HIGHLAND" 
97@ DATA 147,122, "LOTHIAN" 
980 DATA 135,88, "TAYSIDE" 
990 DATA 23,148, "TYRONE" 
1008 DATA -3,1,—-4,-2,0,-2,-4,-3,-1,-4,- 
24-25-2435 
1018 DATA -5,6,-2,3,—351,—35—3 5-45-25 -1 
p35 44-1 451,-5,-1,-6,5 5-2 
1920 DATA 10,-3,-5,-4,8,-2,4,0,4,-4,7,- 
10,3,1,3,—-3,08,—-4,3,2,6,-1 
183@ DATA 3,-3,1,2,1,8,1,-1,4,355,—-2,9, 
8,3,8,-2,3,6,9 
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1040 DATA 1,-3,1,0,1,6,—-7,8,9,-6,3,5,8, 
3,2,2,8,6,-1,-3,-2,-3 

1050 DATA -1,-2,—-2,—29—1525 2543-3959 55- 
1,1,3,-3,4 

106@ DATA -2,-1,—-2,2,—1,—3,—25—35—4565- 
5,4,-8,-5,-4,2 

1070 DATA 150,161,-15,2,0,2,—-5,2,-2,3,- 
3,@,-2,-2,—-3,2,-4,-7 

1080 DATA @,11,-2,1,—-3,—-25—2,—4 5-5-3 5- 
3,—-4,-4,3,1,6,-1,1,—-5,-13 

10290 DATA 3,-3,1,4,1,0,08,—-4,3,—-5,3,-18, 
3,-2,0,-3,-4,-5,1,-18,3,-3 

1100 DATA 6,2,@,-1,-5,-10,—-3,8,—-2,-2,51, 
-6,-2,@,-1,-6,—-2,3,—-2,-7,8,-7 

1110 DATA -5,0,-6,5,08,10,-6,19,-3,8,-1, 
-2,2,-2,0,-5,4,-5,-1,-13 

1120 DATA 4,-5,-3,—-4,13,-25,—-1,8,-13,15 
7-9, -5,0,-1,4,—-3 

11308 DATA 30,-70,6,3,1,4,6,-4,2,0,-2,3, 
10,-4,4,1,18,1,4,-5 

114@ DATA 6,4,-3,6,0,5,-20,15,0,3,-2,4, 
@,2,5,-1,0,2,-5,4 

115@ DATA -13,13,1,8,8,-7,1,1,17,-751,2 
90425 45-2,10,2,5,-1,6,2 

1168 DATA 1,1,0,4,—-2,5,—-9, 2355-55541, 25- 
5,6,-2,1,-4,-2 

1170 DATA -8,4,-2,3,0,1,18,-4,-2,4,2,1, 
3,3,-2,3,-8,9,—-3,4 

1188 DATA -2,1,-14,-4,-2,-1,0,1,11,7,5, 
-1,4,3,2,0,4,—-4,1,0,5,4 

1190 DATA 6,0,1,1,5,1,3,54,0,4,2,3,-6,8, 
-2,10,-20,14,-99,0 


2 
Village 


a el ah 


POPULATION: Lag 


LEDERER ERE 


Shes 





You have just been appointed the chief of a village of natives whose 
lives depend on their crops of wheat. If you manage the crops prop- 
erly then the village will prosper and the population will increase 
but should you make a mistake then people will starve, people will 
die and you will be attacked by an angry mob. 


By the way, your people need about 2!4 bags of wheat each to sur- 
vive for a year. Give them less and they starve and they won’t like 
that. If you give them 5 bags each they will be pleased and may for- 
give you for past mistakes. 


Look out as well for the rats which always attack your crops in the 
warehouse. The more you store, the greater will be the losses from 
rats. 
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How to play 


The screen will show you that you are in your first year as leader. 
You will begin with a certain population and a certain amount of 
wheat. There are symbols for people and sacks of wheat and each 
symbol represents ten units. The computer will ask you how much 
of your wheat you wish to sow. Remember to keep some back as it 
might be a bad harvest. 


The computer will then tell you how much wheat you have grown 
and you will be asked how much you wish to give your people. 


Try and survive ten years as leader. 


Program 


1@ REM VILLAGE 
18 PAPER 7:INK @ 

2@ CLS 

3@ PRINT CHR#(17) 

5@ FOR N=@ TO 31 

6@ READ D 

78 POKE 446856+N,D 

8@ NEXT N 

98 DATA 0,12,30,63,63,51,51,51 
1@@ DATA 12,12,30,45,45,12,18,:8 
110 DATA 0,8,0,30,30,30,30,32 
120 DATA 56,8,30,30,20,30,12,12 
130 SF=0 

140 PP=100 

15@ WHT=25@ 

1468 YR=1 

i7@ ANG=@ 

18@ AE=2.4 

192 GOSUB 920 

200 GOSUB 1000 

210 FOR J=8 TO 14:PRINT @15,J;CHR#(13@) 
:NEXT J 

220 PRINT @18,8; "aaa" 

230 PRINT @17,9;"a a" 


240 PRINT @16,1@;"a a" 
250 PRINT @16,11;"a a" 
260 PRINT @16,12;"a a" 


270 PRINT @17,133;"a a” 
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280 PRINT @18,14; "aaa" 
29@ PRINT @18,11;CHR#(129) 3 "b"s3CHR$ (130 
) 

294 GOSUB 300 

296 GOTO 330 

3@@ PRINT @2,3;CHR#(147);"POPULATION: " 
3PP3" "3 CHR#(151) 

306 WHT=INT (WHT+@. 5) 

31@ PRINT @21,3;CHR#(147); "WHEAT: " WHT 
:" "SCHR#(151) 

320 PRINT @12,0;CHR#(147); "YEAR: "3YRsC 
HR# (151) 

322 RETURN 

33Q@ HVS=INT(RND(1)*3) +1 

332 IF HVS=1 THEN A¢="POOR" 

334 IF HVS=2 THEN A$="FAIR" 

336 IF HVS=3 THEN A$="GOOD" 

338 M$="THE WITCH-DOCTOR PREDICTS A "+A 
$+" HARVEST. ":GOSUB 1102 

34@ PRINT @2,223;""3: INPUT “HOW MUCH SEE 
D WILL YOU SOW";SD 

342 PRINT @2,22;" 


344 IF SD<@ THEN EXPLODE:GOTO 348 
350 IF SD<=WHT THEN 348 

352 EXPLODE: M#="YOU DO NOT HAVE "+STR#¢ 
SD)+" BAGS'":GOSUB 1108:GOTO 34a 

36@ IF SD<=PP THEN 370 

362 EXPLODE:M#="THERE ARE NOT ENOUGH PE 
OPLE TO SOW "+STR#(SD)+" BAGS!" 
364 GOSUB 1100:GOTO 3428 

37@ CRP=INT (RND (1) *2*HVS*SD) 
372 WHT=WHT-SD 

374 GOSUB 3@0:GOSUB 1000 
376 WAIT 258 
388 M#="YOUR CROP WAS"+STR#(CRP)+" BAGS 
OF WHEAT. ":GOSUB 1100 
384 IF HVS=1 OR CRP>1.5*SD THEN 400 

386 M#="EVEN WITCH-DOCTORS CAN BE WRONG 
":GOSUB 1100 

4@@ WHT=WHT+CRP 

402 GOSUB 300:GOSUB i1@0@:WAIT 258 

404 PRINT @2,22;""3: INPUT "HOW MUCH WHE 
AT WILL YOU GIVE TO YOUR PEOPLE”;ET 

406 PRINT @2,22;" 


408 
412 
413 


ET) +" 


414 
415 
416 


1100: 


417 
418 
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IF ET<@ THEN 404 

IF ET<WHT THEN 415 

EXPLODE: M#="YOU DO NOT HAVE "+STR# ( 
BAGS!":GOSUB 110@:FRINT 

GOTO 404 

IF ET>PP*AE THEN 417 

M$="YOUR PEOPLE ARE HUNGRY! ": GOSUB 
SF=1 

IF ET<PP#AE#2 THEN 420 

M#="YOUR PEOPLE ARE HAPPY! ":GOSUB 1 


1@@: ANG=ANG- 1 


420 
422 
424 
43 
440 
450 
460 


WHT=WHT-ET 
GOSUB 30a 

GOSUB 1000 

FOR J=26 TO 3@ STEP 2 

FOR K=4 TO 10 

PRINT @J,K; "da" 

PLAY 1,0,@,@:MUSIC 1,3,9,7:WAIT 5:P 


LAY 0,8,8,@ 


480 
490 
348 
318 
312 
314 


PRINT @J,k3" " 

NEXT EF 

WAIT 35@ 

NEXT J 

RTS=INT (RND (1) #WHT/4) 

M#="RATS ATE"+STR#(RTS) +" BAGS OF W 


HEAT! ":GOSUB 11068 


516 
518 
520 
538 
534 


748 


WHT=WHT—-RTS 

GOSUB 300:GOSUB 1000 

IF SF=@ THEN 700 

DD=INT (RND (1) #0. 5% (PP#AE—-ET) )+1 

IF DD?>=PP THEN DD=PF-1 
M#=STR#(DD)+" OF YOUR PEOPLE HAVE §S 


TARVED TO DEATH! ":GOSUB 1180 


544 
358 
348 
10a 
9708 
38a 
582 
OUR 
584 
398 
60a 
610 
628 


PP=PP-DD 
GOSUB 30@:GOSUB 90a 
M$="YOUR PEOPLE ARE ANGRY!":GOSUB 1 


ANG=ANG+1 

IF ANG<>3 THEN 590 

M$="YOU HAVE LET TOO MANY STARVE. Y 
PEOPLE WANT A NEW LEADER!" 

GOSUB 11@@:GOTO 870 

FOR J=3 TO PP/10+2 

IF J>1@ THEN 448 

PRINT @J,9;" " 

PRINT @J,8;"b" 


20 
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6308 
548) 
466 
67h 
498 
7aa 
71a 


EXPLODE 

WAIT i108 

NEXT J 

FRINT @3,8;” "; CHR (13@) 
GOTO 748 

FPC=INT (CRND (1) #WHT*#@.5/AE) +1 
M£=STR#(FC)+" PEOPLE JOINED YOUR VI 


LLAGE'":GOSUB 11808 


72a 
738 
748 
Foe 
7a 
77?@ 


PP=PP+PC 

GOSUE 2a0 

GOSUB 700 

SF=0 

YR=YR+1 

M#="ANOTHER YEAR HAS PASSED. ":GOSUB 


11@@ 


798 
Baa 
Bea 
84a 
R54 


IF YR=11 THEN 8208 

GOTO 294 

FING 

FING 

PRINT @2,17;CHR#(15@); "WELL DONE! Y 


QU HAVE COMPLETED"; CHR#(151) 


B32 
S IN 
640 


PRINT @2,198;CHR#(15@);"YOUR 10 YEAR 
OFFICE. ";CHR#(151) 
PRINT @2,20:;"YOUR SCORE IS "sINT((P 


P4+WHT/GE)*1@):GOTO 1158 


B70 
372 
B74 
876 
878 
Baa 
882 
BSS 
890 
B91 
B92 
B94 
895 
896 
898 
720 
710 
920 
930 
740 
930 


FOR J=7 TO 11 
PRINT @J,9;"b" 

WAIT 5 

PRINT @J,9;"  " 

NEXT J 

PRINT @13,1@;"b":WAIT 18 
PRINT @13,10;" " 

FOR J=1 TO 5 

PRINT @19,11;" " 

ZAP 

WAIT 10 

PRINT @19,11;"b" 

WAIT 10 

NEXT J 

GOTO 1150 

P$="b" 

FOR J=9 TO 15 

PRINT @2,3;CHR¢ (132) 

FOR K=1 TO 1@ 

IF PP<K#¥1@+(J-9)*18@ THEN P$=" " 
PRINT @K+3,0:P# 
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960 NEXT K 
965 PRINT @15,J;CHR#(13@) 
970 NEXT J 
988 RETURN 


1080 
1018 
1020 
1038 
1040 
10508 
1048 


10708 
1480 
1108 
1110 
1128 


1124 


1138 
1150 
3 Os 

1168 
117@ 
1180 


P$="c" 

FOR J=9 TO 15 

PRINT @24,J3;CHR#(133) 
FOR K=1 TO 10 

IF WHT<K*1@+(J-9)*1@@ THEN P$=" " 
PRINT @K+24,J3;P% 
NEXT K 

NEXT J 

RETURN 

INK @:PRINT @2,19;M¢ 
WAIT 5@0 

PRINT @2,19;" 


PRINT @2,20;" 


RETURN 
PRINT @2,233""3: INPUT "PLAY AGAIN" 


IF LEFT#(Q%,1)="N" THEN END 
CLS 
GOTO 138 
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The first thing you have to do before you begin to play this brain 
teaser is to put your calculators away in a cupboard and bring out 
your pencils and paper. This game is a test of your mental ability 
and agility. No cheating, now, by using any help. 


How to play 


Your computer will begin by asking you if you wish to play multip- 
lication or division. 


Type Mor D then press RETURN. 
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You will then be given a simple multiplication question such as 
1436 x 26. 


If you are correct, you get a nice little tick and the score will be 
recorded on the board. 


If you are wrong, you will receive a large cross against your answer 
and the correct answer will pop up on the screen. 


The program will run for a total of twenty sums and will then give 
your grand total of correct answers against attempts. 


If you wish to change from one type of sum to another you can wait 
until you have answered your twenty questions then type RUN, or 
you can press CTRL and C together, then RUN. Either will bring 
you back to the beginning of the program. 


Programming Hints 


You can make the sums easier for younger members of the family 
by altering lines 200 and 210. 


Program 


1@ REM MULTIPLICATION AND DIVISION 

18 PAPER 7:INK @ 

2@ CLS 

7@ FOR N=@ TO 23 

@@ READ D 

9@ POKE 46856+N,D 

100 NEXT N 

110 DATA @,12,0,63,63,8,12,8 

12@ DATA @,@,1,2,4,48,14,2 

13@ DATA @,8,0,34,20,8, 20,34 

14@ PRINT:PRINT 

15@ INPUT "MULTIPLICATION OR DIVISION"; 
Ct 

160 IF LEFT#(C#,1)="M" THEN S#="X":GOTO 
184 

170 IF LEFT#(C#,1)="D" THEN S#="a":GOTO 
184 
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18a 
184 
186 
198 
240 
218 
238 
240 
28 


268 


GOTO 158 

cLS 

PRINT: PRINT 

IF S$="a" THEN 26@ 
R1=INT(RND (1) #9800) +108 
R2=INT (RND (1) *1@@) +1 

CA=R1*R2 

PRINT @2,21;R13" "sS$3" "sR23" = "5 
GOTO 310 

R1i=INT(RND (1) *18Q) +1 


27 R2=INT (RND(1)*1@@) +1 

288 CA=R1 

290 PRINT @2,215;Ri#R2;" "3S$3" "3R25" = 
31i@ PRINT @2,24;"";: INPUT ANS:PRINT @2, 
24: ili a 

320 PRINT @19,21;ANS;" "5; 

330 SM=SM+1 

340 IF ANS=CA THEN 382 

35@ EXPLODE 

36@ PRINT CHR$(129)3"c"3" "5 

364 PRINT CA 

378 GOTO 41a 

38@ PING 

398 PRINT CHR#(129)3;"b" 

49@ SC=SC+1 

410 PRINT @2,26;"":PRINT 

420 IF SM=2@ THEN 46@ 

430 PRINT @5,@;CHR#(147);"SUMS: ";SM;CH 
R#(151) 

442 PRINT @20,@;CHR#(147);"SCORE: ";SC; 
CHR# (151) 

446 PRINT @2,1;" 

458 GOTO 198 

468 WAIT 258 

47@ CLS 

480 PRINT @6,8;CHR#(146);"YOU HAD";SC;" 


CORRECT ANSWERS"; CHR# (151) 


498 


PRINT @8,108;CHR$(146); "OUT OF 2@ QU 


ESTIONS. "; CHR# (151) 


388 


END 
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Addition and 
Subtraction 


CORRECT! 





When you cover other sums programs in this book you will find 
that we recommend that you don’t use pencils, paper or calculators 
because you probably won’t have them the next time you are sent 
out to shop for your parents. It helps to be able to do your own 
sums in your head because it might save you having to go back to 
the shops because you didn’t have enough money the first time you 
went. 


How to play 


We have made this game look just like it would on your school pap- 
ers. You even fill in the totals by putting the numbers in from right 
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to left just like you do in your maths books. You don’t have to press 
RETURN. Your computer will do this for you. 


If you get a correct answer a little yellow munchman will run across 
the screen and eat away the whole sum. 


If you are wrong however the munchman will only eat away the 
incorrect answer and you will have to try again. 


Give your munchman a full stomach by getting as many correct as 
you can because the score board will show how many tries and how 
many mistakes you made. 


Program 


1@ REM ADDITION AND SUBTRACTION 

3@ PRINT CHR#(17) 

6@ PAPER @: INK 7 

64 CLS 

78 FOR N=@ TO 15 

8@ READ D 

90 POKE 46854+N,D 

100 NEXT N 

110 DATA 0,30,63,45,63,45,51,30 

12@ DATA @,30,63,45,63,33,45,30 

16@ A=INT(RND (1) *4@00@) +19000 

17@ B=INT(RND(1) *4900@) +10000 

190 SN=1 

200 IF RND(1)>@.48 THEN SN=-1 

204 IF SN<@ AND (A-B)<1@@@@ THEN 148 
210 PRINT @13,93A 

220 PRINT @13,10;B 

250 IF SN<@ THEN PRINT @19,9;"-" 

260 IF SN>@ THEN PRINT @19,9;"+" 

278 CA=A+B*SN 

288 SM=SM+1 

290 Ag="" 

300 PRINT @5,1;CHR¢(147) sCHR#(128); "SUM 
S: "3SM;CHR#(144) 

304 PRINT @18,1;CHR$(147) ;CHR#(128) 3; "SC 
ORE: ";SC;CHR#(144) 

310 KS=KEYS 

320 IF K#="" THEN 31@ 


338 
344 
350 
354 
360 
378 
388 
390 
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IF K#>"9" OR K#<"@" THEN 310 

FOR D=1 TO 2@:NEXT D 

AS=KS+AS 

PRINT @19-LEN (A) ,12;A% 

IF LEN(A#)<>5 THEN 318 

IF VAL (A#)=CA THEN 48@ 

EXPLODE: WAIT 100 

PRINT @11,173;CHR#(145) ;CHR#(128) 3"T 


RY AGAIN! "; CHR (144) 


40a 
410 
420 
430 
440 
450 
460 
470 
480 
490 


FOR J=1@ TO 22 
PRINT @J,123;CHR#(129)3"b" 

MUSIC 1,3,3,@:PLAY 1,0,1,900 

WAIT 20 

PRINT @J,12;" " 

NEXT J 

PRINT @11,17;" " 

GOTO 280 

PING: WAIT 10a 

PRINT @12,17;CHR# (147) ;CHR#(128);"C 


ORRECT ! "3; CHR# (144) 


58 
310 
528 
330 
340 
344 
358 
368 
570 
588 
3978 


SC=SC+1 

FOR J=9 TO 13 

FOR K=1@ TO 22 

PRINT @K,J;CHR#(131)3"a" 
MUSIC 1,4,1,@:PLAY 1,0,1,300 
WAIT 5 

PRINT @K,Jd;" " 

NEXT K 

NEXT J 

PRINT @12,17;" " 
GOTO 140 


5 
Sum Difference 
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We thought about calling this game ‘some difference’ as it isn’t 
nearly as easy as it looks at first. 


You are being told by your computer that it is thinking of two 
numbers between 1 and 29. It will tell you the total sum and the 
difference between the two numbers. All you have to do is 
correctly guess the answer. 


Example: The sum of the numbers is 13 
The difference is 9 
What are the numbers? 
Answer 2 and 11 


Simple isn’t it? 
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How to play 


Your computer will tell you the sum of the numbers it is thinking of 
and the difference and ask for your answers. 


After each number press RETURN. 
If you are correct the score increases on the top of the board. 


As you become better at this game the computer will move the 
range of numbers from | - 2@ to 1-25 andso on. 


A wrong answer will end the game completely and you will be 
asked if you wish to compete again. High scores will be recorded on 
the screen to allow you to compete for the high score title. 


Programming Hints 


You can make the game tougher from the very beginning by 
increasing the value in line 5@ so that the range is wider 
immediately. 


Program 


1@ REM SUM DIFFERENCE 
4@ HS=0 

5@ MAX=20 

4@ SC=a 

64 PAPER 7:INK @ 

7@ CLS 

8@ PRINT @4,1;CHR#(149) sCHR# (128); "SCOR 
E: "sSC 

9@ PRINT @17,1;CHR# (149) sCHR# (128); "HI 
SCORE: ";HS;CHR#(151) 

100 Ri=INT(RND (1) MAX) +1 

11@ R2=INT(RND(1) #MAX) +1 

120 IF R2>=R1i THEN 100 

130 INK 4:PRINT @2,8;"I AM THINKING OF 
TWO NUMBERS BETWEEN 1 AND ";MAX 

14@ PRINT @2,11;"THE SUM OF THE NUMBERS 
IS "sRi+R2 
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150 

-R2 
154 
160 

»N2 
170 
180 


PRINT @2,133;"THE DIFFERENCE IS "5Ri 


FRINT:PRINT 
INPUT "WHAT ARE THE TWO NUMBERS";N1 


IF Ni=N2 THEN 198 
IF (N1=R1 OR Ni=R2) AND (N2=R1 OR N 


2=R2) THEN 2706 


198 
200 
BERS 
282 
218 
22 
224 
230 
234 
2408 


EXPLODE 

PRINT @2,19;CHR#(147)33"THE TWO NUM 
WERE "3;Ris;" AND "3;R23;CHR#(151) 
PRINT: PRINT 


PRINT Ris "+"3R23"="3R1I+R2 

PRINT Ri3"-"3R23"="3R1—-R2 

PRINT: PRINT 

PRINT "YOUR SCORE IS ";SC 

PRINT: PRINT 

IF SC>HS THEN HS=SC:PRINT “A NEW HI 


GH SCORE! ":PRINT: PRINT 


250 
268 
264 
27@ 
280 
296 
308 
318 
3520 


INPUT "PLAY AGAIN"; Q% 

IF LEFT#(@#,1)="N" THEN END 
GOTO 5a 

FING 

PRINT @2,193;"THAT IS CORRECT!" 
WAIT 300 

SC=SC+1 

MAX=MAX+5 

GOTO 7@ 
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If you are planning to keep a record of how tall you have grown, or 
the height of a plant, or the rainfall in your garden, or the 
temperature changes, or how much pocket money you have been 
spending on sweets, toys or even computer games then this is for 
you. 


The computer will draw you charts in six different colours so that 
you can lay one colour over another to show how much, or how 
little, change there has been since the last time you checked. 


How to play 
Your computer will show you an upright (perpendicular) line and 


a base (horizontal) line and will ask you first to decide the values 
you wish to use. This means that you have to decide if you want the 
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chart to rise two, five or even ten units at a time. You are then 
asked which colour you would like to see the chart printed in and 
you choose between 1 and 5. 


You will then be asked to type in the figure you wish the chart to 
show. For example, if the temperature on the first day had been 24 
Centigrade then you type in 24, and for the next day, 22, and so on. 
At the end of two weeks you will have finished 14 numbers and will 
see the high and low temperatures for the period covered. 


If you wish to break out of the program at any time you type any 
letter and the program will take you back to the list of colours. You 
can then choose another colour to lay on top of the first one chosen 
so that you can see a comparison with last year’s temperature 
figures, if you wish. When you break out the computer will ask you 
if you want to continue with more values. Type in Y for yes of N for 
no, then the number for the new colour. 


Program 


1@ REM BAR CHART 
18 FAPER 7:INK @ 

2@ CLS 

3@ FOR N=@ TO 7 

4@ READ D 

4@ NEXT N 

7@ DATA 31,31,31,31,31,31,31,31 

84 IF M<>@ THEN WAIT 4@@:CLS 

88 PRINT @2,10:""; 

9@ INPUT "WHAT IS YOUR MAXIMUM VALUE (M 
ULTIPLES OF 2@)":M 

94 IF M<2@ THEN PRINT @11,6;CHR#(146) 3" 
TOO SMALL '";CHR#¥(151):GOTO 94 

100 IF M>i@@ THEN PRINT @11,6;CHR#(149) 
;"TOO BIG'"sCHR#(151):GOTO a4 

1@1 PRINT: FRINT 

1@2 INPUT "COLOUR (1 TO 6)"3sC 

104 IF C<1i OR C36 THEN 102 

1@6 C=C+128 

1@8 CLS 

11@ S=INT(M/2@) 

116 P=4 

120 FOR J=i TO 19 
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124 IF S*J>9 THEN P=3 

13@ PRINT @P,20-3;S*J 

14@ NEXT J 

146 N=5 

15@ FOR J=1 TO i5 

154 N=N+2 

160 PRINT @N,21;RIGHTS (STR (J) ,LEN(STRS 
(J) )-1) 

17@ NEXT J 

186 N=6 

190 PRINT @3,233;""3: INPUT "VALUE"; V# 


568 


194 PRINT @3,23;" 

200 IF LEFT#(V$,1)>"9" OR LEFT#(V$,1)<" 
@" THEN 300 

21@ VL=VAL (V#) 

220 IF VL>M THEN VL=M 

230 FOR J=@ TO VL/S 

240 IF J=@ THEN 242 

250 PRINT @N,20—J;CHR#(C);5 "a" 

260 NEXT J 

270 N=N+2 

280 IF N>3S THEN 300 

299 GOTO 192 

3@0 PRINT @3,24;""3: INPUT "MORE":0% 
310 IF LEFT#(Q@$,1)="N" THEN END 

32@ INPUT "COLOUR";C 

330 IF C<1 OR C>46 THEN 320 

334 C=C+128 

340 PRINT @3,24;" " 
=5@ PRINT @2,25;" "s 


GOTO 184 
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This is one of the most difficult programs in the book in our opinion 
as you have to really think about every move you make. 


Your computer will choose four coloured pegs and place them in 
four positions in its memory. 


You have to guess what the colours are, how many of each colour 
and in fact what order the computer has placed them. 


You could be sitting here for days so you had better get a biscuit 
and a drink before you start. 
How to play 


At the beginning you will be asked your age as the game has 
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different levels of difficulty. You could cheat to begin with and say 
you are only five years old - it might make things easier. 


The colours are as follows 


Key 3 Red 
4 Green 
5 Yellow 
6 Blue 


You are asked for your first guess and you press the four numbers 
for your guess and RETURN. 


When you have entered your guesses the computer will show you 
a yellow peg if you have guessed a correct colour but put it in the 
wrong column. You will get a red peg if your guess of colour and 
column is correct. If you have guessed a colour the computer hasn’t 
chosen you will get a blank column. 


Now you may know that your first guess of colours is half right you 
have to go on to find out which column the colours are really in. 


You could start by making all the keys 3 (red) and if the computer 
showed you a blank screen then you would know that it hadn’t used 
red and you could ignore that number in your next choice. You can 
go on trying this method but it takes a long time and it will mean 
that your score is pretty awful when it shows the number of moves 
you took, at the end of the game. 


If at any stage you want to give up, type ‘quit’ as your guess. 


Program 


1@ REM MASTERBRAIN 

3@ CLS 

4@ PAPER @: INK 7 

90 INPUT "HOW OLD ARE YOU";AGE 

91 CLS 

92 IF AGE<1 OR AGE?18 THEN MAX=10:GOTO 
100 

96 MAX=28-AGE 
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100 
110 
120 
130 

140 
15a 

168 
170 

188 
200 

Ss as 
218 

MES: 


hw bee] 
Cr 


240 
260 
278 
288 
388 
3108 
314 
316 
3528 
338 
azn 
548 
308 
368 
378 
388 
370 
400 
420 
430 
44a 
(J)=8 
450 
436 
458 
460 
470 
(J)=8 


PRINT @3,6; "COLOURS: " 
PRINT @3,8;CHR#(145);" "3CHR#(144); 
PRINT "RED (3)" 

PRINT @3,1@;CHR#(146)3" ";CHR#(144) 


PRINT "GREEN (4)" 
PRINT @3,12;CHR$(147)35" "3; CHR# (144) 


PRINT “YELLOW (5)" 
PRINT @3,14;CHR#(148)5" ";CHR#(144) 


PRINT "BLUE (4)" 
PRINT @5,1; CHR (147) ;CHR#(128) 5 "WIN 
WN ;CHR#(144) 

PRINT @18,1;CHR#(147) ;CHR#(128) 3 "GA 
"3 GM; CHR# (144) 

PRINT @2,18; 

TR=1 

FOR J=1 TO 4 

R (J) =INT (RND (1) #4) 43 

NEXT J 

PRINT "GUESS NO."3;TR; 

INPUT A¥ 

IF LEN(A$)<>4 THEN 310 

IF A$="QUIT" THEN 652 

FOR N=1 TO 4 

IF MID#(A$,N,1)>"6" OR MID#(AS,N,1) 
THEN 3108 

L(N) =VAL (MID# (A#,N,1)) 

PRINT CHR#(L(N) +142)" "3CHR#(144); 


NEXT N 

PRINT " "5 

FOR N=1i TO 4 

S (N)=R (ND) 

NEXT N 

RD=6: BL=@ 

FOR J=1 TO 4 

IF L¢J)=S¢(J) THEN BL=BL+1:S(J)=-1is-e 


NEXT J 

FOR J=1 TO 4 

IF L(J)=@ THEN 490 

FOR K=1 TO 4 

IF L¢J)=SC(K) THEN RD=RD+1:S(K)=-1:Lb 


480 
498 
per 4] 7) 
314 
328 
338 
240 
358 
560 
3708 
580 
398 
680 
616 
630 
640 
658 
652 
RINT 
654 
656 
658 
560 
664 
6708 
468@ 
698 
692 
694 
7@G@ 
704 
710 
728 
738 
740 
730 
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NEXT KE 

NEXT J 

IF BL=@ THEN 5468 

FOR J=1 TO BL 

PRINT CHR#(129)5"I"sCHR#(135) ; 
NEXT J 

IF RD=@ THEN 58@ 

FOR J=1i TO RD 

PRINT CHR#(131)3 "I"; CHR#CiSS) ; 
NEXT J 


FRINT:FRINT 

IF BL=4 THEN 678 

TR=TR+1 

IF TR*<>MAX THEN 200 

FING 

EXPLODE 

PRINT “OUT OF GUESSES!" 

PRINT:PRINT "THE COLOURS WERE: "3:F 


FOR N=1 TO 4 
PRINT CHR#(R(N)+142)5" "3 CHRS(144) ; 


NEXT N 

PRINT: PRINT 

GOTO 72a 

PLAY 1,0,@,@:MUSIC 1,3,8,8:WAIT 5@ 
MUSIC 1,4,1,12:WAIT 7@:FLAY @,2,0,@ 
WN=WN+ 1 

MAX=MAX-1 

IF MAX<S THEN MAX=5 

GM=GM+1 

PRINT @2,24;""3:PRINT: PRINT 

INPUT "PLAY AGAIN"; Q¢ 

cLS 

IF LEFT$(Q#,1)="N" THEN 75@ 

GOTO 10a 

PRINT @8,98;CHR$(144) ;CHR# (128) 3; "THA 


NES FOR THE GAME! ";CHR#(144) 


768 
776 


PRINT: PRINT 
END 


8 
English/French 


QUEST TONS : 


THE FRENCH WORD 


TORRECT |! 





Imagine you have gone on holiday with your family to France and 
your Mum and Dad can’t remember the French for an hotel. You 
just walk up behind them and say ‘It’s an auberge, Dad’. 


They will probably be so surprised that you could knock them 
down with a pain (that’s French for a loaf of bread, but of course 


you will know that.) 


Howto play 


The computer will concentrate on nouns but you can change the 
program later to widen your knowledge. 


Always remember when answering in French to use le or la before 
your word, or your computer will tell you that you have made an 
error. Our computers are very correct things you know. 
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Keep going with your answers as, after twenty correct answers, you 
will get a tasty reward. 


Always remember to use your CAPS lock (press CTRL and T 
together) to give capital letters. You may be asked questions 
alternately from French to English then English to French. 


Programming Hints 


Some of the data we have used is very simple so you can change 
lines 600 onwards to insert your own, or have someone else 
program, harder examples. 


Program 


1@ REM ENGLISH/FRENCH 
20 CLS 

4 PAPER 7: INK @ 

70 DIM E#(2@) 

8@ DIM F#(20) 

19@ FOR J=1 TO 20 

11@ READ E#(J) 

12@ READ F#(J) 

13@ NEXT J 

132 PRINT: PRINT 

140 INPUT “WHAT IS YOUR NAME";N# 

142 IF LEN(N#) >8 THEN N#=LEFT#(N#,8) 
158 WAIT 220 

154 CLS 

168 PRINT@S,@; CHR# (147) ;CHR# (128) 5 "SCOR 
E: "3SC;CHR#(151) 

170 PRINT @17,@;CHR# (147) ;CHR# (128) 5 "QU 
ESTIONS: "3;QN;CHR#(151) 

18@ R=INT(RND(1)*2@) +1 

19@ IF RND(1)>@.5 THEN 330 

200 PRINT @5,4;CHR#(144) ;CHR# (128); "WHA 
T IS THE FRENCH WORD"; CHR#(151) 

202 PRINT @5,7;CHR# (144) ;CHR#(128) ; "FOR 
"SES(R) 5"? "s CHR (151) 

204 PRINT @2,20;""; 

21@ INPUT At 

220 QN=OQN+1 
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240 IF AS=F#(R) THEN 288 
250 PLAY 1,@,@,@:MUSIC 1,1,1,1@:WAIT 7@ 
:PLAY @,@,0,@ 

268 PRINT @5,12;CHR# (149) ;CHR#(128) 5 "NO 
"sN¢s" THE WORD IS";CHR#(151) 

262 PRINT @5,13;CHR# (149) sCHR# (128) sF#( 
R) sCHR# (151) 

270 GOTO 150 

280 PLAY 1,8,@,@:MUSIC 1,2,9,10:WAIT 30 
:PLAY 0,2,8,0 

290 PRINT @12,10;CHR# (149) s;CHR#(128) 3 "C 
ORRECT! ";CHR#(151) 

3@@ SC=SC+1 

31@ IF SC=2@ THEN 410 

320 GOTO 15@ 

33@ PRINT @5,63CHR$ (146) ;CHR# (128) ; "WHA 
T IS THE ENGLISH WORD"; CHR# (151) 

332 PRINT @5,7;CHR# (146) ;CHR# (128); "FOR 
"SFS(R) 3"? "s CHR$ (151) 

334 PRINT @2,20;""; 

340 INPUT At 

350 QN=ON+1 

370 IF AS=E#(R) THEN 280 

380 PLAY 1,0,0,@:MUSIC 1,1,1,1@:WAIT 70 
:PLAY @,0,0,@ 

390 PRINT @5,123;CHR*# (149) ;CHR# (128) 3; "NO 
"sN$s" THE WORD IS ";CHR#(151) 

392 PRINT @5, 13; CHR$ (149) ;CHR# (128) 5 ES ( 
R) s CHR#(151) 

4080 GOTO 150 

410 PAPER @ 

430 CLS 

440 PRINT @6,8;CHR#(15@) 3 CHR (128); "CON 
GRATULATIONS! YOU HAVE ";CHR#(144) 

450 PRINT @6,9;CHR#(15@) ;CHR# (128) 5 "ANS 
WERED 2@ QUESTIONS "s CHR# (144) 

460 PRINT @6,10;CHR#(15@) ;CHR#(128);"CO 
RRECTLY. HERE IS HALF A "sCHR#(144) 

464 PRINT @6,113;CHR#(15@) ;CHR#(128) 3; "FR 
ENCH ONION TO CHEW! "s CHR# (144) 

446 WAIT 5@@ 

468 PAPER @:HIRES:CURSET 120,10@,1 

47@ FOR R=1 TO 45 STEP 3 

480 CIRCLE R,1 

49@ NEXT R 

5@@ GET N¢ 


218 
938 
340 
600 
616 
628 
630 
648 
65@ 
666 
670 
688 
698 
708 
710 
720 
738 
740 
738 
768 
770 
780 
798 
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FAPER 7 

CLS: TEXT: PAPER 7 

END 

DATA "TABLE","LA TABLE" 
DATA "CHAIR", "LA CHAISE" 
DATA "DOOR" ,"LA PORTE" 
DATA "HOUSE","LA MAISON" 
DATA "DOG","LE CHIEN” 
DATA "CAT","LE CHAT" 
DATA "GARDEN","LE JARDIN" 
DATA “COAT","LE MANTEAU" 
DATA "HAT","LE CHAPEAU" 
DATA "BICYCLE","LA BICYCLETTE" 
DATA "TRAIN","LE TRAIN" 
DATA "STATION","LA GARE" 
DATA "BREAD","LE PAIN” 
DATA "MILK","LE LAIT” 
DATA "CUF","LA TASSE" 
DATA "APPLE" ,"LA FOMME" 
DATA "ROAD","LA RUE" 
DATA "MAP","LA CARTE" 
DATA "SEA","LA MER" 

DATA "BOAT","LE BATEAU" 


9 
Fizz/Buzz 


HIGH SCORE: © 





You might have played this at school with everyone in your class 
making a fool of themselves but now it is up to you alone to get it 
right or look silly. 


Every time a number can be divided by 3 you must press FIZZ and 
every time it can be divided by 5 you press BUZZ. Remember to 
press ENTER after each entry. 


Example: 1,2, FIZZ,4, BUZZ, and so on. 


How to play 


You type in the numbers and the FIZZES and BUZZES. 


Fizz/Buzz 43 


If you make a mistake the computer will tell you what you have 
done wrong and will send you back to the beginning. 


Press CTRL and T to give you capital letters before you start. 


At the end your computer will thank you for the game. 


Programming Hints 


You can easily change the program for numbers other than 3 and 
5 if you find you are getting too good for the computer. Why not try 
5 and 7? The lines to change are 110, 120, 130, 160, 190, 200 and 
210. 


Program 


1@ REM FIZZ BUZZ 

2@ CLS 

3@ PAPER 7:INK @ 

40 C=1 

7@ PRINT @1@,@;CHR$ (147) sCHR#(128) 3; "HIG 
H SCORE: "s;HS;CHR$(151) 

9@ PRINT: PRINT 

1@@ INPUT At 

192 IF A$="" THEN 180 

110 IF A$="FIZZ" AND C/3=INT(C/3) AND C 
/5<>INT(C/S) THEN 302 

120 IF A$="BUZZ" AND C/S5=INT(C/5) AND C 
/3<>INT(C/3) THEN 300 

13@ IF A$="FIZZ BUZZ" AND C/3=INT(C/3) 
AND C/S5=INT(C/5) THEN 3@@ 

14@ IF LEFT#(A$,1)>"9" OR LEFT#(A$,1)<" 
@" THEN 178 

15@ ANS=VAL (As) 

16@ IF ANS=C AND C/3<>INT(C/3) AND C/5< 
>INT(C/S) THEN 300 

17@ EXPLODE 

18@ PRINT "THAT SHOULD HAVE BEEN "; 

19@ IF C/3<>INT(C/3) AND C/5<>INT(C/5) 
THEN PRINT C 

20@ IF C/3=INT(C/3) THEN PRINT "FIZZ" 
21@ IF C/S=INT(C/S) THEN PRINT "BUZZ" 


44 Fizz/Buzz 


228 
24 
=40 
HIGH 
28 
260 
2/8 


ber dae 
2¢-2 


PRINT: PRINT 

FRINT "YOUR SCORE IS "5;C-1 

PRINT: PRINT 

IF C-12HS THEN HS=C-1i:PRINT "A NEW 
SCORE! ":PRINT: PRINT 

INFUT "PLAY AGAIN"; Q% 

CLS 

IF LEFT#(@Q$,1)="Y" THEN 280 

PRINT @6,8; CHR# (149) ; CHR# (128) 5; "THA 


NES FOR THE GAME! ";CHR#(151):END 


280 
24a 
S30 


340 


GOTO 48 

ZAF 

FRINT: PRINT 
C=C+1 

GOTO 180 


10 
Highway Code 


UI aches ed OH a Ee 





Sorry, we don’t have a green giant to help you across the road or 
help you solve any of the questions in this game. This program is 
designed to make sure that you know your code before you begin 
to take your cycle out on the open road. It will also help you to keep 
your parents out of trouble as you can tell them where they 
shouldn’t park their cars. 


How to play 


The first thing your jolly green computer will ask you is your name 
which you should type in then press RETURN. 


You will then be given a series of questions with three answers to 
each. You must choose the correct one if you want to get points 
and, in real life, stay alive on the road. 


46 Highway Code 


Example 


: The best place to cross the road is 
1. a)atabusstop 
2. b)betweencars 


3. c)onazebra crossing 


You must press 1, 2 or 3. The quicker your response the higher the 


score. 


The game will end after twenty questions which are at random so 
you may get the same one twice. 


Programming Hints 


To change the selection of questions you alter the input data lines 
from 600 onwards if you wish to make things easier or more 
difficult for the player. 


Program 


108 
40 
5@ 
78 
8a 
98 
108 
118 
128 
138 
140 
15@ 
1468 
178 
18a 
STIO 
198 
ORE: 
208 
219 


REM HIGHWAY CODE 
cLS 
PRINT: PRINT 
DIM @#(13) 
DIM A#(13,3) 
PAPER @:INK 4 

INPUT "WHAT IS YOUR NAME";N¢ 

FOR J=1 TO 13 

READ OF(J) 

FOR K=1 TO 3 

READ A#(J,K) 

NEXT K 

NEXT J 

CLS 

PRINT @3,1;CHR#(147) ;CHR#(128) ; "QUE 
NS: "sQN;CHR*# (144) 

PRINT @22,1;CHR# (147) ;CHR#(128); "SC 
"sSC3 CHR# (144) 

R=INT(RND (1) *13) +1 

IF R=RS THEN 200 


228 
230 
240 
208 
2460 
270 
280 
2970 
208 
318 
320 
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RS=R 

PRINT @2,73;@#(R) 
RA=INT (RND (1) #3) +1 
RB=INT (RND (1) #3) +1 

IF RB=RA THEN 25@ 
RC=INT(RND(1) #3) +1 

IF RC=RA OR RC=RB THEN 270 
PRINT @2,1@;"1. ";A#(R,RA) 
PRINT @2,12;"2. "s;A$(R,RB) 
PRINT @2,14;"3. "sas (R,RC) 
PRINT @2, 18; CHR (149) ;CHR# (128) ; "PR 


ESS 1, 2 OR 3, ";N¢;CHR#(144) 


338 
548 
258 
260 
362 
364 
366 
368 
2708 
388 
390 
400 
410 
420 
T OF 
430 
440 
450 
466 


QN=GN+1 
FOR T=1 TO 300 

R$=KEY# 

IF T/S@<>INT(T/5@) THEN 378 

PLAY 1,0,0,0 

MUSIC 1,3,7/50+1,8 

WAIT 30 

PLAY 0,8,2,2 

IF R$="1" THEN T$=A#(R,RA):GOTO 448 
IF R$="2" THEN T$=A#(R,RB):GOTO 440 
IF R$="3" THEN T#=A#(R,RC):GOTO 442 
NEXT T 

EXPLODE 

PRINT @2, 20; CHR#(146) ;CHR# (128); "0U 
TIME! "3 CHR# (144) 

GOTO 52a 

IF A#(R,1)=T# THEN 480 

EXPLODE 

PRINT @2,2@;CHR# (146) ;CHR#(128) ;"TH 


AT IS WRONG, ";N#;CHR#(144) 


470 
480 
490 


GOTO 52a 
PING 
PRINT @2,20; CHR# (146) ; CHRE (128) 5 "CO 


RRECT ! "3; CHR# (144) 


492 
500 
520 


322 


530 
540 
542 
546 
548 


SI=1@-INT(T/10@) 
SC=SC+SI 

WAIT 300 

IF Q@N=2@ THEN 540 

GOTO 172 

CLS 

PLAY 1,0,@,@:MUSIC 1,3,1,1@:WAIT 38 
MUSIC 1,3,5,1@:WAIT 50 

MUSIC 1,3,9,1@:WAIT 9@:FLAY 2,2,9,@ 
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55@ PRINT @4,1@;CHR#(15@) ;CHR#(128); "YO 
UR FINAL SCORE IS ";SC;CHR#(151) 

360 PAPER 7: INK @ 

388 END 

608 DATA "WHAT SHOULD YOU WEAR AT NIGHT 
7", "SOMETHING LIGHT OR REFLECTIVE." 

605 DATA "DARK CLOTHES.","AS MANY CLOTH 
ES AS POSSIBLE." 

614 DATA "WHICH IS THE SAFEST PLACE TO 
CROSS THEROAD?","A ZEBRA CROSSING." 

615 DATA "A DUAL CARRIAGEWAY.", "BETWEEN 
FAREED CARS. " 

628 DATA "WHERE SHOULD YOU STAND BEFORE 
CROSSINGTHE ROAD?" 

625 DATA "ON THE PAVEMENT, A LITTLE WAY 
FROM THE KERB." 

628 DATA "BEHIND A PARKED CAR.","IN THE 
ROAD." 

63@ DATA "WHERE MIGHT YOU SEE ZIG-ZAG L 
INES?", "NEAR A ZEBRA CROSSING." 

635 DATA "NEAR TRAFFIC LIGHTS","GN A BU 
SY ROAD." 

640 DATA "ON A ROAD WITHOUT A FOOTPATH, 
You SHOULD WALK: " 

645 DATA "ON THE RIGHT HAND SIDE.","ON 
THE LEFT HAND SIDE." 

648 DATA "ON EITHER SIDE." 

658 DATA "WHAT IS THE BEST WAY TO CROSS 
A CLEAR ROAD?" 

655 DATA "WALE STRAIGHT ACROSS.","RUN. ” 
, WALE) DIAGONALLY." 

668 DATA "WHEN WILL A CAR TAKE LONGEST 
TO STOP.","0ON A WET ROAD." 

665 DATA "ON A DRY ROAD.","ON A BUSY RO 
AD." 

678 DATA "AT A PELICAN CROSSING, YOU SE 
E A RED MAN, WHAT DO YOU DO?" 

675 DATA "WAIT.","RUN QUICKLY ACROSS.", 
"WALK ACROSS. " 

68@ DATA "WHERE SHOULD YOU GET ON A BUS 
?","AT A BUS STOP." 

685 DATA "AT TRAFFIC LIGHTS.", "ANYWHERE 
IT HAS STOPPED." 

690 DATA "WHAT MUST YOU HAVE ON A CYCLE 
AT NIGHT?" 
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695 DATA "FRONT AND REAR LAMPS AND A RE 
FLECTOR.","FRONT AND REAR LAMPS.” 
698 DATA "A FRONT LAMP AND A REFLECTOR. 
7088 DATA “WHEN YOU ARE WITH A DOG. SHOU 
LD IT BE:","ON A LEAD." 
7@S DATA "IN THE ROAD." , "RUNNING FREE." 
71@ DATA "RED AND AMBER LIGHTS AT TRAFF 
IC LIGHTSMEANS: ” 
715 DATA "TRAFFIC ABQUT TO START.","TRA 
FFIC STOPPING. " 
718 DATA "TRAFFIC MOVING BOTH WAYS." 
720 DATA "ON A CYCLE AT TRAFFIC LIGHTS 
SHOWING RED WHAT SHOULD YOU DO?" 
725 DATA "WAIT UNTIL THEY ARE GREEN. ",” 
CYCLE THROUGH. " 
728 DATA "GET OFF AND WALK THROUGH. " 


11 
Guess the Number 


Helen 


JING TO THINK OF A_NUMBER 
JH T ys tee: iie3 


WHAT MUMBER AM IT THINKING 


SE 
é 
é 


&% IS TOO HIGH. TRY A 
paeeee 5 


SUEFSS IS TOO LOW. TRY A 
ee esseee. 


Ix rx 





You have the chance here to see if you can guess the number your 
computer has chosen for you. 


The game will begin with a number between 1 and 100 but as you 
become an expert at guessing the number your computer will start 
to widen the range to between 1 and 120, and then 140 and so on. 


How to play 


Your friendly computer will ask you to guess the number it has 
thought of and you enter your first guess. Your computer will then 
tell you whether you are too high or too low with your try and will 
recommend your next move to you. 


If your answer is quick and correct then the game becomes harder 


Guess the Number 51 


with a wider range of numbers but if you are slow then your 
computer will wind down to help you. 


Programming Hints 


You can make the game easier or more difficult to start with if you 
decrease or increase the value of ‘max’ in line 50. 


Program 


1@ REM GUESS THE NUMBER 

2@ CLS 

3@ PAPER 7:INK @ 

50 MAX=100 

8@ PRINT @11,2; "HELLO!" 

84 WAIT 150 

98 PRINT @2,6;"I AM GOING TO THINK OF A 
NUMBER " 

91 PRINT @2,7;"BETWEEN 1 AND";MAX;"." 
92 PRINT @2,8;"YOU TRY AND GUESS WHAT I 
T IS." 

94 WAIT 150 

10Q@ PRINT@9,21;CHR#(149) 3 "THINKING... "; 
CHR# (151) 

11@ R=INT(RND (1) *MAX) +1 

12@ WAIT 500 

124 PRINT @9,21;" " 

13@ PRINT @2,1@;"0.K. WHAT NUMBER AM I 
THINKING OF?" 

140 PRINT: PRINT 

15@ INPUT ANS 

154 PRINT:PRINT 

16@ TR=TR+1 

17@ IF ANS<=R THEN 18@ 

174 PRINT “YOUR GUESS IS TOO HIGH. TRY 
A LOWER NUMBER.":GOTO 140 

18@ IF ANS=R THEN 1928 

184 PRINT "YOUR GUESS IS TOO LOW. TRY A 
HIGHER NUMBER.":GOTO 14@ 

190 PLAY1,@,@,@:MUSIC 1,3,9,1@:WAIT 3a 
200 MUSIC 1,4,6,1@:WAIT S@:PLAY @,0,2,2 
21@ PRINT "THAT IS THE NUMBER!” 


52 Guess the Number 


214 
216 
218 
220 
238 
240 
258 


202 
260 
270 
280 
298 


PRINT: PRINT 

WAIT 400 

TF=MAX 

C=C+1 

TP=TP/2 

IF TP?1 THEN 220 

PRINT "YOU GUESSED IN ";TR;"“ TRIES. 


PRINT:PRINT 

IF TR<C+2 THEN 310 

MAX=MAX-208 

IF MAX<2@ THEN MAX=2@:GOTO 330 
PRINT “THAT WAS A BIT SLOW! I WILL 


REDUCE THEMAXIMUM NUMBER TO ";MAX 


300 
3108 
328 


GOTO 330 
MAX=MAX+20 
PRINT “THAT IS VERY GOOD! I WILL IN 


CREASE THEMAXIMUM NUMBER TO "3;MAX 


330 
340 
358 
360 
370 


Cc=8 

TR=0 
WAIT 480 
CLS 
GOTO 90 


12 
Word Mix 


Br Amt Bete) bedi be 


JRAT ARE THE Thc Lae vy 


STS TE ERIE eae 
BLACK, rhe Cbd 





If you ever get words mixed together when you are thinking about 
something else and have to go back and rewrite your essay then this 
game will be easy for you. 


We have mixed one word through another but we haven’t jumbled 
them up - if you see what we mean. 


Hereisanexample: ABFOOUUTR 
spells ABOUT FOUR 


As you can see both words are mixed together but not jumbled. 
You have to have a sharp eye to pick them out and separate them. 


54 WordMix 
How to play 


The computer will put up on your screen two words mixed as in the 
example above. 


Type in the first word and press RETURN then the second word 
and RETURN. 


You can use lower case - capitals aren’t necessary. 


You will receive one point for each correct word and the score will 
appear on the top of your screen. 


If you cannot solve the riddle type QUIT to give up. 


Programming Hints 


If you wish to make the selection of words even more difficult then 
change the data in lines 450 onward. If you increase the number of 
words make sure that you change the 50 in lines 60, 80, 140, 150 to 
match the total number of words, e.g. if you had 100 words, line 60 
would be: 

60 DIM W$ (100) 


Program 


1@ REM WORD MIX 

3@ PAPER 7:INK @ 

6@ DIM W#(5@) 

82 FOR J=1 TO 5@ 

90 READ W$(J) 

1@@ NEXT J 

11@ CLS 

120 PRINT @5,1;CHR#$(147);"WORDS: ";TR;C 
HR# (151) 

13@ PRINT @19,1;CHR#(147);"SCORE: "3;SC; 
CHR# (151) 

140 R1i=INT(RND(1)*5@) +1 

15@ R2=INT(RND(1)*5@) +1 

148 IF R2=Ri THEN 15@ 

i170 Mi=1 
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180 M2=1 

199 PRINT @12,9; 

200 IF RND(1)>0.5 THEN 246 

208 IF Mi>1i@ THEN 280 

210 IF MID#(W#(R1i),M1,1)=" " THEN 230 
220 PRINT MID#(W#(R1) ,M1,1)5 

230 Mi=Mi+1 

2408 GOTO 280 

246 IF M2>1@ THEN 288 

250 IF MID#(WS(R2),M2,1)=" "THEN 270 
268 PRINT MID#(WS(R2) ,M2,1)5 

270 M2=M2+1 

28@ IF M1i<1@ OR M2<1@ THEN 200 

290 PRINT @6,153;CHR$(149) 3 "WHAT ARE THE 
TWO WORDS?"; CHR#(151) 

300 PRINT @2,20;""s3: INPUT At,Bt 

304 PRINT @2,20;" 


306 PRINT@4,15;" 
31@ TR=TR+1 

314 IF A$="QUIT" THEN 420 

340 IF AS<>W#(R1) AND AS<>W#(R2) THEN 3 
7@ 

350 PRINT @3,14;CHR#(146);"YOUR FIRST W 
ORD IS CORRECT! ";CHR#(151):PING 

360 AS="" 

370 IF BS<>W$(R1) AND BS<>W$(R2) THEN 4 
aa 

380 PRINT @3,16;CHR#(146); "YOUR SECOND 
WORD IS CORRECT! ";CHR#(151) :PING 

398 BS="" 

394 WAIT 20a 

4@@ SC=SC-(As="")-(BS="") 

410 IF As="" AND BS="" THEN 110 

420 PRINT @8,18;CHR#(149);"THE TWO WORD 
S WERE"; CHR#(151) 

430 PRINT @8, 20; CHR$ (149) ;W#(R1) 3 CHRS (1 
51) 

432 PRINT @19,20;CHR# (149) ;W#(R2) 3 CHRS ( 
151) 

434 WAIT 50a 

440 GOTO 11@ 

452 DATA "BANK", "HOUR", "MOST" 


56 


Word Mix 


460 
478 
48a 
490 
perl] 7a) 
218 
326 


532 


242 


ou 
368 
278 
38a 
378 
506 
618 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"YARD", "FOUR", "SETTLE" 
“MORNING”, "TIME", "FOUND" 
"HOOF", "SAD", "BLACK" 

"ANIMAL", "ABOUT", "SOLDIER" 
"COLONEL" , "RUMOUR" , "ENGINE" 
"LEG", "CASTLE", "DIGEST" 
"GUITAR", "DOG", “BUTTER" 
"BRICK", "SPACE", "DUCK" 
"@EROPLANE", "BATTERY", "SPARROW 


"PRINT", "STAR", "SYSTEM" 
"CANARY", "BASE", "WHITE" 
"TABLE", "CHAIR", "MAGIC" 
"LAND", "JUSTIFY", "HABIT" 
"MECHANIC", "CYLINDER", "OIL" 
"SPADE", "MARKET", "TRACTOR" 
"ROBUST", "VARIETY" 


13 
Constellations 


WRSA MAIOR 


GREAT BEAR 





This is a great game for learning how to make money off your pals 
by asking them at night if they know which star group is which in 
the sky. 


It is also very handy to know your stars as you never know when 
you will need to navigate your way out of a crocodile-infested 
swamp - or drive to London in the dark. The star at the end of the 
tail of Ursa Minor, or the little bear, is called the pole star and will 
always be to your North. 


Howto play 
The computer will show you the shape of some of the main star 


groups to be found in the skies around us and will give you the 
Latin and the common names for each group. 


58 Constellations 


The screen will then show the stars without any names and will ask 
you to type in your answer in CAPS. 


If your guess is wrong the screen will light up and show you both the 
names. Press CTRL and C together to stop the game. 


Happy stargazing. 


Program 


100 
110 
140 
142 
144 
146 
148 
i5a 
140 
178 
172 
180 
198 
192 
200 
@5,- 
205 
210 
@,-4 
215 
220 
3,” 


REM CONSTELLATIONS 
PAPER @:INK 4 
HIRES 
A=70: B=98 
TT=0 
FOR C=1 TO 7 

IF TT=@ THEN 72 
R=INT (RND(1)*7) +1 
GOSUB 300 
READ X,Y 

IF X=-99 THEN 148 

CURSET A+X,B+Y,1 

GOTO 7a 

READ M$#,N¥ 

IF TT=@ THEN 150 

INPUT "WHICH IS THIS";A¢ 

IF At=M$ OR AS=N# THEN 480 
EXPLODE 

PRINT M$ 

PRINT N¥ 

WAIT 10202 

HIRES 

NEXT C 

TT=1 

GOTO 4a 

DATA 8,8,24,-12,39,-9,63,-18,75,0,1 
12,97,-33,-99,8 

DATA "URSA MAJOR” ,"GREAT BEAR" 
DATA @,@,12,1,3,-19,13,-18,24,-33,4 
2,57,-48,-99,8 

DATA "URSA MINOR”,"LITTLE BEAR" 
DATA @,@,4,18,18,18,24,37,44,28,-99 
CASSIOPEIA"," " 
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238 DATA @,1,5,-4,-5,5,—-6,35,12,-38, 26, 
30,-20,-33,-99,@ 

235 DATA "ORION", "THE HUNTER" 

240 DATA @,@,7,2,14,1,20,—-2,25,-10, 20,-— 
19,-99,8 

245 DATA "CORONA BOREALIS","NORTHERN CR 
OWN" 

250 DATA @,0,21,9,39,12,38,19,-99,0,"SA 
GITTA","THE ARROW" 

260 DATA @,0,25,-12,34,-55,47,-35,98,9, 
72,-8,66,-15,74,-52,-99,8 

265 DATA "CYGNUS","THE SWAN" 

3@@ RESTORE 

310 FOR J=1 TO R-1 

32@ READ NU 

33@ IF NU=-99 THEN 35@ 

340 GOTO 320 

350 READ NU, Z*#,Z¢ 

36@ NEXT J 

370 RETURN 

400 PING 

410 PRINT "THAT IS CORRECT!" 

420 WAIT 400 

43@ GOTO 172 


14 
History Quiz 


QUESTIONS: 2 


AH ERE eC e Bye GREAT FIRE OF 
(er: Stotal ths AR 


» FPUBDCING LANE 


[ie 
1. FURNACE LANE 
4 
3S. OXFORD CLRCUS 


PRESS » @ OR 3B, DAUIC 





Here is a chance to catch up on your history lessons without 
looking stupid because you have got the answer wrong. If you are 
working with your own computer no one will know that you need 
more practice with your history. 


This is very like the science quiz which offers multiple answers for 
which you must make the correct choice. You can also alter the 
questions in this program as explained at the end. 


How to play 


The computer will ask you for your name and you type it in and 
press RETURN. 


History Quiz 61 


A choice of statements will appear on the screen and you will be 


asked to 


Example 


choose the correct answer. 
The Napoleonic wars were fought between? 
1. The Frenchand English 
2. The English and Americans 


3. The French and Italians 


To answer press 1, 2 or3 


If you are correct the computer will tell you and if you are wrong 


the comp 


uter will print ‘That is wrong’. 


Programming Hints 


The lines 
If you inc 


to change for your own questions are from 600 onwards. 
rease the number of questions you will need to change the 


20 in lines 70, 80, 110 and 200 to match the total number of 
questions. To give yourself more or less time for each question, 
increase or decrease the number in line 340 in multiples of 100. 


Program 


168 


REM HISTORY QUIZ 
CLS 
PRINT: PRINT 
DIM O#(2@) 
DIM A#(20,3) 
PAPER @:INE 4 
INPUT "WHAT IS YOUR NAME"; N? 
FOR J=1 TO 20 
READ Q$(J) 

FOR Kk=1 TO 3 
READ A#(J,E) 
NEXT FE 

NEXT J 


62 History Quiz 


170 
180 


CLS 
PRINT @3,15; CHR (147) ; CHR# (128) 5 "QUE 


STIONS: ";QN;CHR# (144) 


198 
ORE: 
200 
210 
228 
230 
240 
250 
268 
278 
280 
298 
308 
310 


PRINT @22,1;CHR$(147) sCHR$(128); "SC 
";SC3CHR# (144) 
R=INT (RND (1) *2@) +1 

IF R=RS THEN 2200 

RS=R 

PRINT @2,7;Q#(R) 
RA=INT (RND (1) #3) +1 
RB=INT (RND (1) *3) +1 

IF RB=RA THEN 250 
RC=INT (RND (1) #3) +1 

IF RC=RA OR RC=RB THEN 270 
PRINT @2,1@;"1. "s;A$(R,RA) 
PRINT @2,12;"2. "sA$(R,RB) 
PRINT @2,14;"3. ";AS(R,RC) 


320 PRINT @2, 18; CHR# (149) sCHR#(128);"PR 
ESS 1, 2 OR 3, "3N#;CHR$(144) 

33@ QN=ON+1 

34@ FOR T=1 TO 30a 

350 RS=KEYS 

360 IF T/S5@<>INT(T/5@) THEN 370 

362 PLAY 1,0,0,@ 

364 MUSIC 1,3,T/58+1,8 

366 WAIT 38 

368 PLAY @,8,8,@ 

370 IF R$="1" THEN T$=A$(R,RA):GOTO 448 
380 IF R$="2" THEN T$=A$(R,RB):GOTO 440 
390 IF R$="3" THEN T$=A$(R,RC):GOTO 440 
4@Q NEXT T 

410 EXPLODE 

420 PRINT @2, 20; CHR$ (144) s CHR$ (128) ; "OU 
T OF TIME! ";CHR#(144) 

430 GOTO 520 

440 IF A$(R,1)=T# THEN 480 

450 EXPLODE 

460 PRINT @2, 20; CHR$ (1446) ;CHR$ (128) ;"TH 
AT IS WRONG, ";N$;CHR#(144) 

478 GOTO 520 

48@ PING 

490 PRINT @2,2@;CHR# (146) ;CHR#(128) ;"CO 


RRECT! "3; CHR# (144) 


492 
500 
520 


SI=1@0-INT(T/35) 
SC=SC+SI 
WAIT 308 
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522 IF GQN=2@ THEN 54@ 
530 GOTO 178 

54@ CLS 

542 PLAY 1,@,@,@:MUSIC 1,3,1,1@:WAIT 3@ 
546 MUSIC 1,3,5,1@:WAIT 5@ 

548 MUSIC 1,3,9,1@:WAIT 9@:PLAY 0,8,28,0 


55@ PRINT @4,1@0;CHR#(15@) 5; CHR#(128); "vO 
UR FINAL SCORE IS "3;SC;CHR#(151) 

360 PAPER 7: INK @ 

58@ END 

600 DATA "WHEN DID JULIUS CAESAR FIRST 
COME TO BRITAIN?" ,"S5 BC","1914" 

645 DATA "1066" 

618 DATA "WHO REIGNED BEFORE QUEEN ELIZ 
ABETH II","GEORGE VI" 

615 DATA "QUEEN VICTORIA","EDWARD VII" 
62@ DATA "WHO INTRODUCED THE PENNY FOST 
7", "ROWLAND HILL","JULIUS CAESAR" 

625 DATA "WALTER RALEIGH" 

638 DATA "WHERE DID THE GREAT FIRE OF L 
ONDON START?" , "PUDDING LANE" 

635 DATA "OXFORD CIRCUS", "FURNACE LANE” 
64@ DATA "WHEN WAS THE BATTLE OF HASTIN 
6S?" , "1066" ,"1943","1841" 

6350 DATA "WHY WRE THE EGYPTIAN FYRAMIDS 
BUILT?","AS TOMBS" ,"AS HOUSES" 

655 DATA "FOR GRAIN STORAGE” 

666 DATA "WHO WAS SENT TO AUSTRALIA IN 
THE LATE EIGHTEENTH CENTURY?" 

665 DATA "CONVICTS","PRISONERS OF WAR”, 
"SLAVES" 

670 DATA "WHICH CENTURY ARE WE IN NOW?" 
> TWENTIETH", "NINETEENTH" 

675 DATA "EIGHTEENTH" 

68@ DATA "WHO WAS DISRAELI?","A PRIME M 
INISTER","A KING","A COMPOSER" 

696 DATA "WHO INVENTED THE TELEPHONE?", 
"BELL", "COOK", “BAIRD” 

7@@ DATA "WHO WAS THE FIRST MAN IN SFAC 
E?", "YURI GAGARIN", “NETL ARMSTRONG" 

7@5 DATA "LEONARDO DA VINCI" 

71@ DATA “WHEN DID THE FIRST WORLD WAR 
START?" "1914", "1939" ,"°1918" 

72@ DATA "WHO WAS SIR ROBERT WALFOLE?", 
“THE FIRST PRIME MINISTER" 
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725 DATA “INVENTOR OF THE LOCOMOTIVE"," 
DISCOVERER OF AMERICA" 

736 DATA "WITH WHICH ANIMALS DID HANNIB 
AL CROSS THE ALPS?", "ELEPHANTS" 

735 DATA "CAMELS", "LLAMAS" 

740 DATA "WHO STARTED THE POLICE FORCE? 
", "PEEL", "NELSON", "GLADSTONE" 

7358 DATA “WHO DEFEATED THE SPANISH ARMA 
DA?" , "FRANCIS DRAKE" 

735 DATA "WALTER RALEIGH","HENRY VIII" 
760 DATA “WHAT WAS CHAIN-MAIL?", "ARMOUR 
","AN EARLY POSTAL SERVICE" 

745 DATA "A SHIPS ANCHOR CHAIN" 

778 DATA "HOW MANY WIVES DID HENRY VIII 
HAVE?" , "SIX", "EIGHT", "TWO" 

78@ DATA "WHAT ANIMAL SPREAD THE PLAGUE 
OF 16657", "RAT", "MOUSE", "HORSE" 

790 DATA "WHO WAS THE FIRST PERSON TO W 
ALK ON THE MOON?" , "ARMSTRONG" 

795 DATA "GAGARIN", "SHEPHERD" 
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Well, you must have expected to find a spelling test somewhere in 
the book and here it is. 


How to play 


Your computer will put a word on the screen for a few seconds and 
then blank the screen and ask you to spell the same word correctly. 


You must use upper case (capital letters) for this game. Remember 
you can change from small letters to capitals and vice versa by 
pressing CTRL and T together. 


66 Spelling Test 


Programming Hints 


If you think the time that you see the word on the screen is too long 
or too short you can alter the pause in line 170. If you feel that the 
words are too easy for a bright young thing like you then ask your 
parents to type in some more difficult words from line 400 onward. 
If you add more words, change the 50 in lines 70, 80, and 120 to 
match the total number of words. 


The computer will ask its questions at random so you shouldn’t 
really know what is coming up next. 


Program 


1@ REM SPELLING TEST 

40 FAPER 7:INK @ 

72 DIM W#(5@) 

88 FOR J=1 To 5a 

9@ READ W#(J) 

1@@ NEXT J 

11@ FOR N=1 TO 20 

120 R=INT(RND(1)*5@) +1 

13@ CLS 

140 PRINT @4,0;CHR#(147);"SCORE: "3SCsC 
HR# (151) 

15@ PRINT @18,0;CHR#(147); "HIGH SCORE: 
"SHS; CHR# (151) 

16@ FRINT @12,8;W#(R) 

170 WAIT 148 

18@ PRINT @12,8;" i 

19@ PRINT @6,16;CHR#(15@) 3; "WHAT WAS THE 
WORD?" 3 CHR# (151) 

194 PRINT: PRINT 

200 INPUT At 

21@ IF AS=WS(R) THEN 270 

228 EXPLODE 

230 FRINT @8,8;CHR#(15@);"THE WORD WAS 
"SW (R) s CHR# (151) 

244 PRINT @3,16;" 

250 WAIT 700 

268 GOTO 200 

278 PING 
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288 SC=SC+10 
300 NEXT N 

31@ IF SC>HS THEN HS=SC 

312 CLS 

314 PRINT @3,8;"YOUR FINAL SCORE WAS "; 
Sc 

316 IF SC=HS THEN PRINT @2,1@;"THIS IS 
THE HIGHEST SCORE TODAY." 

318 PRINT @ 2,18;""; 

32@ INPUT "PLAY AGAIN"; Q¢ 

330 IF LEFT#(Q$,1)="N" THEN 388 

340 SC=a 

368 GOTO 110 

380 END 

490 DATA "QUIZ", "MESSAGE", "PAVEMENT" 
41@ DATA "BICYCLE", "SPECIAL", "BENEATH" 
420 DATA "MOUNTAIN", "LISTEN", "SCHOOL" 
430 DATA "TOMORROW", "BUSINESS", "ADDRESS 
440 DATA "PARALLEL", "HEIGHT", "LENGTH" 
45@ DATA "CEILING", "EXPERT", "KETTLE" 
460 DATA "COLONEL", "SURPRISE", "FORECAST 
47@ DATA "ATTACH", "RHUBARB", "MERINGUE" 
480 DATA "DAFFODIL", "KNOWLEDGE", “YACHT” 
490 DATA "TONGUE", "MINIATURE", "DINGHY" 
502 DATA "AMATEUR", "PUNCTUAL", "ILLOGICA 
L" 

S12 DATA "GIRAFFE", "PARSLEY", "TRIANGLE" 
520 DATA "LEGIBLE", "MOSAIC", "DISCIPLE" 
530 DATA "AMEND", "GUITAR", "BELIEVE" 

540 DATA "STATION", "PRESENCE", "SAVIOUR" 
550 DATA "ALCOHOL", "CABARET", “SYLLABLE” 
568 DATA "AQUATIC", "PNEUMATIC" 
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This is a game for those show-offs amongst you who can remember 
everything, write it down and get it right every time. 


A sentence will appear on the screen for a few seconds and you 
must remember the sentence and the correct spelling of the words 
if you are going to get your points. 


There is one big snag for clever little people though - the better 
your answers the faster the computer goes and you will only get to 
see the sentence for a split second before you have to answer. 


How to play 


Your computer will put the line up on the screen and ask you to 
type it in after a short pause. 


Speed Reading 69 
If you get it wrong the screen will tell you. 
Programming Hints 


If you want to change the sentences to make it more difficult for 
yourself, or your friends, the lines to change are from 400 onward. 


Program 


i@ REM SPEED READING 
3@ PAPER 7:INK @ 

5@ TM=250 

7@ DIM W#(3@) 

8@ FOR J=1 TO 30 

9@ READ W#(J) 

1@@ NEXT J 

11@ FOR N=1 TO 20 

12@ R=INT(RND (1) *3@) +1 

13@ CLS 

140 PRINT @4,@;CHR#(147);"SCORE: ":SC;C 
HR# (151) 

15@ PRINT @18,0;CHR#(147);"HIGH SCORE: 
“sHS3CHR# (151) 

169 PRINT @2,8;W#(R) 

17@ WAIT TM-SC 

18@ PRINT @2,8;" 


19@ PRINT @6,16;CHR#(15@) 5 "WHAT WAS THE 
SENTENCE?" 5; CHR# (151) 

194 PRINT:PRINT 

200 INPUT At 

210 IF A#=WE(R) THEN 270 

220 EXPLODE 

254 PRINT @9,8;CHR#(15@) 3; "THE SENTENCE 
WAS ";CHR#(151) :PRINT 

240 PRINT CHR# (15@) sW#(R) 5 CHR# (151) 
244 PRINT @3,16;" 

250 WAIT 700 

260 GOTO 3008 

270 FING 

288 SC=SC+1@ 

3@@ NEXT WN 
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316 IF SC>HS THEN HS=SC 

312 CLS 

314 PRINT @3,8;"YOUR FINAL SCORE WAS "; 
SC 

316 IF SC=HS THEN PRINT @2,10;"THIS IS 
THE HIGHEST SCORE TODAY." 

318 PRINT @ 2,183""; 

320 INPUT "PLAY AGAIN"; G¢ 

330 IF LEFT#(Q#,1)="N" THEN 388 

348 SC=@ 

358 TM=2508 

366 GOTO 118 

380 END 

400 DATA “FOUR GREEN TURTLES" 

41@ DATA "LONG GREEN PENCIL" 

420 DATA "THE WHEEL IS ROUND" 

430 DATA "THE BOOK IS NOT HEAVY" 

440 DATA "THE LEAF IS GREEN” 

450 DATA "LOOK AT THE TREE" 

460 DATA "FICK UF THE RABBIT" 

47@ DATA "EXTEND THE LADDER" 

480 DATA "THE KITTEN IS UP A TREE" 
49@ DATA "WE WAITED A LONG TIME" 

5@@ DATA "WE DASHED THROUGH THE GATE" 
31@ DATA "THE UMBRELLA IS OPEN" 

5328 DATA “THE UMBRELLA IS CLOSED" 

330 DATA "THE BOOK IS TOO HEAVY" 

54@ DATA “THE SHOP IS CLOSED" 

35@ DATA "GFEN THE CUPBOARD" 

36@ DATA "RAFID READING RESEARCH” 

37@ DATA “ELEFHANTS ARE LARGE MAMMALS" 
586 DATA “THE GRASS IS VERY GREEN" 
3970 DATA "THE RIVER IS FAST AND DEEP" 
640 DATA "GREY COMPUTER FERIFHERAL" 
61@ DATA "COMPLETELY CORRECTED" 

624 DATA "RESEARCH AND DEVELOPMENT" 
630 DATA “UNTANGLE THE KNOT" 

648 DATA "FIERY RED FIRE ENGINE" 

658 DATA "CROSS-EXAMINE THE WITNESS” 
664 DATA “HOLD UP THE MIRROR" 

67@ DATA "A LONG RUN OF LUCK" 

688 DATA "THE SPANIARD OWNS A DOG" 
69@ DATA "SMALL PIECES OF BUTTER" 
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This game might also be called ‘little boxes’ as you are going to 
have to decide how many small boxes are required to fill the area of 
alarge rectangular box. 


How to play 


Type in the names of the 2 players, pressing RETURN after each 
name. 


The computer will then show you a large rectangular box with one 
small box set in a corner. 


You must now decide how many small boxes you require to fill the 
larger box. 


72 Area Estimation 
Type in your estimated number and press RETURN. 


If you are wrong the computer will fill in one line on the upright 
(perpendicular) side of the box and ask you to estimate again on 
the totals required. 


If you still don’t estimate correctly then the bottom line 
(horizontal) will be completed. 


You should now be able to estimate the total by multiplying the 
two columns together. 


Should you get it right this time you'll get a ‘happy’ bleep from your 
computer and you will move on to the next shape. A wrong answer 
at this stage will mean that the computer will fill in all the boxes and 
ask you again for the total. The computer will not let you move on 
until you have provided the correct results. The first player to 
reach a score of 10 wins the game. 


Programming Hints 


You can make the game a little easier by reducing the numbers in 
lines 90 and 110. 


Program 


1@ REM AREA ESTIMATION 

32 INK 7:PAPER @ 

34 CLS 

4@ PRINT @2,10;"WHAT ARE THE PLAYERS NA 
MES?" 

5@ INPUT "PLAYER ONE: "3P$(1) 
4@ INPUT "PLAYER TWO: ";P#(2) 
9@ HT=INT(RND(1)#*1@)+3 

1@@ H=HT*1@ 

11@ WT=INT(RND (1) ¥12) +3 

120 W=WT*10 

122 HIRES 

13@ CURSET 15,155,1 

148 DRAW @,-H,1 

15@ DRAW W,@,1 
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16@ DRAW @,H,1 
170 DRAW -W,@,1 

18@ GOSUB 4600 

190 FOR N=1 TO 2 

2@@ PRINT P#<(N);" HOW MANY SMALL SQUARE 
S IN" 

204 PRINT "THE LARGE RECTANGLE”; 
210 INPUT ANS 

214 PRINT 

220 IF ANS=HT*WT THEN 268 

23@ EXPLODE 

240 WA=WAt1 

250 GOTO 32a 


260 PING 

27@ S(N)=S(N) +4-WA 

280 PRINT F¥(1)3" "sSC1)5" "SP$(2)5" 
"3S(2) 


282 IF S(1)>9 OR S(2)>9 THEN 700 
290 WA=@ 

294 WAIT 50a 

300 GOTO 9a 

320 IF WA>1 THEN 38a 

330 FOR J=2@ TO H+15 STEP 10 
340 CURSET 15,175-J,1 

35@ GOSUE 60a 

340 NEXT J 

370 GOTO Saa 

38@ IF WA>2 THEN 430 

390 FOR J=15 TO W+i@ STEP 10 
4@@ CURSET J,155,1 

41@ GOSUB 400 

420 NEXT J 

422 GOTO 5aa 

3@ IF WA>S THEN 5a@@ 

44@ FOR J=20 TO H+i5 STEP 18 
450 FOR K=15 TO W+10 STEF 10 
460 CURSET K,175-d,1 

47@ GOSUB 62a 

480 NEXT K 

490 NEXT J 

5@Q@ NEXT N 

51@ GOTO 198 

46@@ DRAW @,-10,1 

610 DRAW 18,0,1 


620 DRAW @,10,1 
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630 
640 
768 
7358 
748 


DRAW -18,@,1 

RETURN 

TEXT 

IF S(2)>9 THEN 788 

PRINT @7, 10; CHR$ (129) sCHR# (27) 3 "L 


"SP$(1)3" WINS!" 


77@ 
780 


GOTG 8aa 
PRINT @7,1@; CHR# (129) 5 CHRS (27) 5 "L 


"3P$(2)3" WINS!" 
808 END 
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This is a game where you have to think ahead and predict the next 
numbers to appear on the screen. 


Your computer will start to print a string of numbers such as 11, 22, 
33, 44 and will then stop and ask you to predict the next numbers 
which are, of course, 55. 


How to play 


As soon as you think you know the next number, press any key to 
stop the sequence then type in your answer and press RETURN. 


The correct answer will be rewarded by scoring a point on the 
board and a wrong answer will mean that the computer will show 
you the right number before moving on to the next string of 
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numbers. Remember that the quicker you stop the sequence, the 
more points you score. As soon as you reach 5@ points, the 
computer will stop and give you your average score. 


Programming Notes 


As the program is set to choose numbers at random you may 
sometimes get the same series twice running which is lucky for you 
as you should know the right answer. 


Program 


1@ REM NUMBER SERIES 

3@ PAPER @:INK 7 

52 CLS 

6@ PRINT @4,1;CHR#(131);"TRIES: "3TR;" 

SCORE: °;SC 

61 IF SC>=5@ THEN 300 

62 ST=1 

7@ R=INT(RND(1)*3@)-15 

8@ IF R=@ THEN 7@ 

98 IF R<@ THEN ST=100 

1@@ PRINT @4,1@;CHR#(132);ST;" "5 

110 FOR J=1 TO 5 

112 WAIT 200 

114 AS=KEYS 

116 IF AS<>"" THEN 144 

120 ST=ST+R 

13@ PRINT CHR#(128+J);ST; 

132 PLAY 1,@,@,@:MUSIC 1,2,3*#2,10:WAIT 
20:PLAY @,8,0,@ 

14@ NEXT J 

144 PRINT:PRINT @5,18;CHR#(13@) 3 "WHAT I 
S THE NEXT NUMBER"; 

15@ INPUT ANS 

140 TR=TR+1 

17@ IF ANS=ST+R THEN 220 

180 PLAY 1,0,0,@:MUSIC 1,1,5,1@:WAIT 1@ 
@:PLAY 0,0,0,8 

19@ PRINT @7,15;CHR$#(133)3"THE NEXT NUM 
BER IS ";ST+R 

208 WAIT 3a@ 


210 


220 


238 
240 
270 
260 
328 
304 
318 
3520 
338 
334 
348 
366 
370 


388 
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GOTO S32 
PLAY 1,0,0,@:MUSIC 1,3,97,1@6:WAIT 30 


PLAY @,8,0,8 


PRINT @14,15;CHR# (129) ; "CORRECT!" 
SC=SC+7-J 

WAIT 1280 

GOTO 52 

PLAY 1,0,@,2 

FOR J=1 TO 12 

MUSIC 1,2,J,1@ 

WAIT 38 

NEXT J 

WAIT 5@ 

PLAY 2,8,0,2 

cLS 

PRINT @7,1@;"YOUR AVERAGE SCORE WAS 


PRINT @8,13;5C3"/"5 TR" ="3SC/TR 
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If you are planning to become a sea captain or a pilot then this is the 
game for you. Even if you are just planning to help your parents on 
a yachting weekend you will be able to show off with this one. 


There is plenty of fun here as well as you can set your own speed of 
reply to the computer; set your own messages; ask other people to 
translate what you have sent. 


Howto play 


The computer will put up on the screen a menu which is a list of 
items from which you can make a choice. Menu is 
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1. Send a message 
2. Random letters 
3. Words 
The computer will ask you to choose from 1, 2 or 3. 


You will then be asked to choose a speed which you would like 
from 1 to 100. As 100 is for professional morse code operators we 
suggest you start at 10. 


Type in 10 and press RETURN 


The computer will then ask you for your message. 


If you have chosen 1 you could type in MAY THE FORCE BE 
WITH YOU, remembering to use capitals, press ENTER and the 
computer will play the message back to you in morse code. 


When the message is complete the computer will return to the 
menu and ask you for your next choice. 


No. 2 will mean that the computer will put random letters on the 
screen whilst sounding them at the same time. If you choose No. 3, 
words, the computer will sound out a word, at the speed you 
choose, which you must identify. When the computer completes 
the word it will ask you to type in the answer. If you are right - well 
done. If you are wrong however you will hear a nasty ‘raspberry’ 
and the computer will show you the correct answer before moving 
to another word. 


Remember that your knowledge of morse code could save lives. 


Programming Notes 


The words in the program can be changed when typing in the data 
statements in lines 1050 to 1080. 
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Notice how the morse code is stored in lines 1000 to 1030. Each of 
the groups of numbers represents one letter of the alphabet. For 
example, the letter ‘A’ is -—, each 1 is a dot and each 3 is a dash. 


Program 


1@ REM MORSE CODE 

i8 PAPER 7:INK @ 

2@ CLS 

4@ DIM M#(26) 

42 DIM W#(2@) 

50 FOR J=1 TO 26 

4@ READ M¥(J) 

70 NEXT J 

8@ PRINT @11,1;CHR#(145); "MORSE CODE";C 
HR# (151) 

9@ PRINT @2,6;CHR#(147);"1. SEND MESSAG 
E"s CHR#(151) 

10@ PRINT @2,8;CHR#(15@);"2. RANDOM LET 
TERS"; CHR# (151) 

110 PRINT @2,10;CHR#(146);"3. WORDS";CH 
R#(151) 

120 PRINT @2,14;CHR#(149);"PRESS 1, 2 0 
R 3"3sCHR#(151) 

124 PRINT: PRINT 

130 AS=KEYS 

132 IF A$="" THEN 130 

136 PING 

140 IF AS<"1" OR AS>"3" THEN 138 

142 INPUT "SPEED (1 TO 1@@)";SP 

143 IF SP>10@ OR SP<1 THEN 142 

i145 CLS 

148 PRINT @12,1;CHR#(145) ;"SPEED";SP;CH 
R$ (i151) 

150 IF AS<>"1" THEN 170 

1468 GOTO 400 

170 IF A$<>"2" THEN 1928 

18@ GOTO 590 

199 FOR J=i TO 2a 

200 READ W#(J) 

210 NEXT J 

215 FOR N=1 TO 10 

220 R=INT(RND(1) #20) +1 

23@ FOR J=1 TO LEN(W#(R)) 
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240 L$=MID$(WH(R) ,J,1) 

245 IF L$="" THEN 3a0 

250 L=ASC(L#)-64 

260 FOR K=1 TO LEN(M#(L)) 

262 IF MID#(M#(L),K,1)="@" THEN 2a8@ 
270 MUSIC 1,3,9,1@:PLAY 1,0,0,@ 

274 WAIT 9*VAL (MIDS (M#(L) ,K,1))+2:PLAY 
,0,0,8 

276 WAIT 3 

280 NEXT K 
290 WAIT 16@-SP 

3@@ NEXT J 
304 PRINT:PRINT 
308 INPUT “WHAT WAS THE WORD";0#(1) 

310 IF @#(1)<>W#(R) THEN 316 
312 PING 

314 PRINT @12,11;CHR#(149);"CORRECT!"3C 
HR# (151) 

315 GOTO 318 

316 EXPLODE 

317 PRINT @13,113;CHR#(149) ; "WRONG! ";CHR 
$(151) 

318 PRINT @1@,13;CHR#(146);"THE WORD WA 
S"s CHR# (151) 

320 PRINT @10,15;CHR$ (146) ;W(R) ;CHR$ (1 
S1) 

330 WAIT 50a 

334 CLS 

34Q NEXT N 

350 GOTO 9a 

40@ PRINT @4,15;CHR#(147);"WHAT IS YOUR 
MESSAGE?" ; CHR# (151) 

402 PRINT: PRINT 

406 INPUT I¢ 

410 FOR J=1 TO LEN(I#) 

420 L$=MID#(1$,J,1) 

422 IF L$=" "THEN WAIT 20@:GOTO 5a@a 
424 IF L#<"A" OR L#>"Z" THEN 518 

43@ L=ASC(L#)-64 

44@ FOR K=1 TO LEN(M#(L)) 

442 IF MID#(M$(L),K,1)="@" THEN 472 

444 MUSIC 1,3,9,1@:PLAY 1,0,0,8 

450 WAIT 9*VAL (MID# (M#(L) ,K,1))+2:PLAY 
2,9,0,0 

468 WAIT 3 


=} 
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470 NEXT K 

474 PRINT @1+J,4;L¢# 

480 WAIT 146@-SP 

5@@ NEXT J 

51@ WAIT 50a 

520 CLS 

338 GOTO 98 

390 PRINT @2,4;5 

600 FOR J=i TO 5@ 

610 R=INT(RND(1)#26) +1 

620 PRINT CHR#(15@) ; CHR# (R+64) 5 CHR# (151 
d5 

630 FOR K=1 TO LEN(M#(R)) 

64@ IF MID#(M#(R) ,K,1)="O" THEN 662 
644 MUSIC 1,3,9,1@:PLAY 1,8,8,0 

650 WAIT 9*VAL (MIDS (M#(R) ,K,1) +2: PLAY 
2,2,8,2 

668 WAIT 3 

642 NEXT K 

670 WAIT 16@-SP 

680 NEXT J 

690 WAIT 500 

7@0 CLS 

71@ GOTO 98 

199@ DATA "1300" ,"3111","3131","3118",” 
1000" ,"1131","3310" 

1@10 DATA "1111","110@","°1333","3130"," 
1311",°33060","31006" 

1920 DATA "3330","1331","33135","1318"," 
1119", "3000" ,"1130" 

10340 DATA "1113","1330",°3113","3133"," 
3311" 

10@5@ DATA "DELICATESSEN", "NECESSITY","D 
ELICIOQUS", "PREHISTORIC", "GOURMET" 

1@45@ DATA "FHILOSOPHER"”, "PRECIOUS", "DIS 
SECT", “AGRICULTURE”, "SEMAPHORE" 

1078 DATA "DIFFICULT", "BUSINESS", "MONAS 
TERY" , "FRAGILE", "ALPHABET" 

1@8@ DATA "DAFFODIL", "KNOWLEDGE", "THROU 
GH", "FINEAPFLE", "KANGAROO" 
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This game is a bit of a brain teaser and might drive you mad before 
you start to get it right. To begin with you might even need a pencil 
and some paper but really that is a bit of a cheat. 


The object is to work out the total area of a rectangle and a triangle 
- together. Your parents will be highly impressed when you can tell 
them how much carpet they need for that funny shaped room 
upstairs. 

How to play 


You will be asked ‘One or two players?’ 


Type in 1 or 2 and press RETURN 
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You will then be asked for the player’s, or players’, names. 
RETURN as before. 


The computer will then show you a red rectangle with a green 
triangle on top. You will be given the length of three of the sides 
and asked to work out the total area. 


If you do not get the answer correct first time the computer will 
then ask you to give the area of the rectangle first. If you answer 
this part correctly you will then be asked for the area of the 
triangle. If either part of your answer is wrong the computer will 
give you the correct total area sum. 


If you get the answer right first time, clever clogs, you will be given 
two points but if you answer in two halves you will get only one 
point for your correct answers. 


To help you bend the rules the formula for area is 


CxB+¥%Bx(A-C) 


Program 


10 REM AREAS 
20 CP=40 

22 LP=90 

24 PAPER 7:INK 4 

=@ FOR J=@ TO 15 

32 READ N 

34 POKE 46856+J,N 

36 NEXT J 

38 DATA @,0,1,3,7,15,31,63 

39 DATA 63,63,63,63,63,635,43,43 
4@ RW=4:CL=18 

5@ CLS 

52 PRINT @2,63""3 

6@ INPUT “1 OR 2 PLAYERS";N 

7@ IF N¢i OR N>2 THEN 68 

8@ PRINT @2,10;"WHAT ARE THE PLAYERS NA 
MES?" 

98 FOR J=i1 TO N 

100 PRINT @4,12+3*2; "PLAYER" 3J3 
110 INPUT P#(J) 
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120 NEXT J 

i2z CLS 

13@ FOR L=i TO N 

140 A=INTCRND(1)*#7)+4 

15@ B=INT(RND(1)*8)+2 

160 C=INT (RND(1)#5)+3 

162 IF C>=A THEN 1408 

172 SA=A*8 

174 SB=B*s 

176 SC=C+#*8 

18@ PRINT @CL,RW; CHR# (130) 5 "a" 

190 FRINT @CL-1,RW+15 CHR (134) 5 "ab" 
200 PRINT @CL-2,RW+2; CHRS (138) 3; "abb" 
21@ PRINT @CL—-2,RW+3; CHRS (120) 5 "abbb" 
220 PRINT @CL—-4,RW+4;5 CHR (130) 5; "abbbb" 
222 PRINT @CL-S,RW+5; CHRS (13@) 3; "abbbbb” 


230 FOR J=RW+6 TO RW+11 
232 PRINT @CL—-5S,J;CHR# (135) sCHR#(145) 5" 
"s CHR# (151) 

234 NEXT J 

24@ PRINT @2@,11;CHR#(128) 3A 

250 PRINT @14,19;CHR#(128) 3B 

26@ PRINT @10,14;CHR#(128);C 

270 PRINT @2,22;P$(L)3;", WHAT IS THE TO 
TAL AREA"; 

280 INFUT ANS 

284 GOSUB 70a 

29@ IF ANS=C*B+B/2*(A-C) THEN 558 

31@ EXPLODE 

320 PRINT @2,22;P#(L);", WHAT IS THE AR 
EA OF THE" 

322 FRINT "RECTANGLE"; 

330 INPUT RC 

333 GOSUB 72a 

34@ IF RC=C*B THEN 370 

35@ EXPLODE 

360 PRINT @2,22;"THE AREA OF THE RECTAN 
GLE IS";C*B 

362 WAIT 500 

363 GOSUB 70a 

364 GOTO 5aa 

370 PRINT @2,22;P#(L)s;", WHAT IS THE AR 
EA OF THE 0 

372 PRINT "TRIANGLE"; 


86 Areas 


38@ INPUT TG 
384 GOSUB 70a 

390 IF TG=B/2*(A-C) THEN 420 

48@ EXPLODE 

41@ PRINT @2,22;"THE AREA OF THE TRIANG 
LE 15"3B/2*(A-C) 

412 WAIT 5@@ 

414 GOTO 5aa 

420 PRINT @2,22;P$#(L);", WHAT IS THE TO 
TAL AREA"; 

43@ INPUT ANS 

440 IF ANS=C*B+B/2*(A-C) THEN 4728 

450 EXPLODE 

460 GOTO 5aa 

47@ PING 

480 S(L)=S(L) +1 

490 GOTO 542 

52@ GOSUB 7@@:PRINT @2,22;"THE TOTAL AR 
EA IS";C*B+B/2* (A-C) 

502 WAIT 200 

5@4 CLS 

510 GOTO 570 

550 PING 

549 S(L)=S(L)+2 

562 CLS 

570 PRINT @4,13;P$(1)3" 2"3S¢1)3" "SP 
$(2)3" 23902) 

58@ NEXT L 

408 GOTO 130 

70@ FOR G=22 TO 24 

710 PRINT @2,G;" 

72@ NEXT G 

730 RETURN 


21 
Missing Letter 





If you are one of those poor souls who are always being told by 
someone that you miss letters in words don’t worry too much 
because it’s supposed to mean that you are clever and that your 
brain works faster than your hands. However, it’s not a good idea 
to go on doing it so we have invented this game to help you. 


Words are going to appear on the screen and you are going to have 
to spot the missing letter. 


Anexample 
sper should be spear 
How to play 


Your computer will ask you | or 2 players? 


88 Missing Letter 


Type in 1 or2 and press RETURN. 

In the middle of the screen will appear a word with a letter missing. 
To complete the word you press the letter of your choice. 

It is not necessary to press the RETURN key 


If your answer is correct the computer will tell you that your 
decision was correct, award you a number of points depending on 
the speed of your response and move on to the next word. 


Wrong answers will mean no points and the computer will move on 
to the other player - if there are two playing. 


Programming Notes 


It is possible to change the words used in the program by replacing 
those in the data statements of lines 350 to 440 with your own 
selection. If you increase the number of words though, change the 
50 in lines 60, 90 and 190 to match the total number of words. 


Program 


1@ REM MISSING LETTER 

2@ CLS 

3@ PRINT: PRINT 

4@ INPUT “1 OR 2 PLAYERS";P 

5@ IF P<i OR P22 THEN 4@ 

6@ DIM W#(5@) 

7@ CLS 

a2 IS=100 

9@ FOR J=i TO 58 

1@@ READ W#(J) 

11@ NEXT J 

120 PRINT @9,1;CHR#(147):;"QUESTIONS: @" 
7 CHR$ (151) 

13@ FOR J=1 To P 

140 PRINT @J*18-15,3;CHR#(147); "PLAYER 
"sdg": "sCHR# (151) 

15@ NEXTJ 
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160 O=0+1 

170 FOR J=1 TO P 

i180 PRINT @J¥18-15,3;CHR#(145) "PLAYER 
"sJs": "3S(3);CHR#(151) 

19@ R=INTC(RND(1)*5@)4+1 

2@@ Ri=INT(RND(1)*5)+1 

210 DS=LEFT# (Ws (R) ,RI-1) +RIGHT# (WE(R) ,L 
EN (W#(R))-R1) 

214 PRINT @12,10;" " 

220 PRINT @12,10;CHR#(150):D#;" ";CHR#¢ 
i51) 

230 PRINT @9,16:CHR#(146); "MISSING LETT 
ER?" s CHR# (151) 

240 AS=KEYS 

250 IF A$="" THEN IS=IS-@.5:GOTO 248 
260 IF IS<1@ THEN IS=10 

270 IF At< >MID#(WH(R),R1,1) THEN 280 
272 M$=" CORRECT! ” 

274 S(J)=S(J)+INT(IS/1@) 

275 IS=100 


276 FING 
278 GOTO 290 
“B88 M#=" WRONG! 


282 EXPLODE 

290 PRINT @11,2@;CHR# (149) yM#; CHR# (151) 
3@@ PRINT @20,1;CHR#(147) ;Q:;CHR# (151) 
3i@ PRINT @J*#18-15, 3; CHR# (147); "PLAYER 
"ss": "sS(J) sCHRS (151) 

32@ WAIT 180 

33@ NEXT J 

34@ GOTO 148 

350 DATA "HORSE", "STREET", "DAILY", “MONE 
Y", "PEOPLE" 

340 DATA "YELLOW", "BOTTLE", "ORANGE" ,"SA 
UCER" , "BREAKFAST" 

37@ DATA "COMPASS", "KITTEN", "ENGINE","H 
ISTORY" , "SAUSAGE" 

382 DATA "ADDRESS", "CEILING", "EXPERT", " 
MYSTERY" , "COMPUTER" 

39@ DATA "PROMISE", "CLOWN" , "MESSAGE", "E 
ARLY", "LISTEN" 

400 DATA "MAGIC", "SCHOOL", "TOMORROW", "K 
ETTLE", "DETACH" 

41@ DATA "MECHANIC", "CYLINDER", "SCIENTI 
FIC", "ILLOGICAL", "GIRAFFE" 
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420 DATA "FARSLEY", "TRIANGLE", "LEGIBLE" 
» MEDICINE”, "PRESENCE" 

438 DATA "TRIANGLE", "PENGUIN", "ALPHABET 
", "DAFFODIL", “KNOWLEDGE” 

44@ DATA "YACHT", "FIERY", "KANGAROO", "RA 
SPBERRY", "CHRISTMAS" 
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Duck Shoot 





Here is a game for your memory, your speed and your eyesight. 


You will be shown a screen full of ducks - thirty in total - and then 
you will have to solve a multiplication sum before you can shoot at 
the sitting ducks. 


Just in case you are worried about the ducks - they are not real, we 
borrowed them from a fairground. 


How to play 
You will be asked to solve a multiplication table which will be 


selected at random by your computer. If you get the answer right 
and type in properly you will be allowed to shoot at the ducks. 


92 Duck Shoot 


It is not as simple as it sounds however because the gun moves from 
left to right and back again. You have to stop the gun which will fire 
on its own at the row of ducks. If you stop the gun in the wrong 
place the shot may go between a row of the ‘quackers’ and leave 
you without a score despite your correct answer to the sum. 


To stop the gun you must press the space bar. 


Your score board will show you how many shots were on target. 


The trick is to be clever - and fast. 


Program 


i@ 
28 


38 
4@ 
pa) 
60 
7 
8a 
72 


REM DUCK SHOOT 
PAPER @:INK = 

CLS 

PRINT CHR#(17) 

HT=@: SH=@ 

FOR J=@ TO 23 

READ C 

POKE 46854+J,C 

NEXT J 

DATA @,12,30,31,63,7,3,1,8,0,0,63,63 


,62,68,56 


eR 


95 

100 
185 
118 
115 
128 
130 
140 
145 


150 
154 
168 
165 
17@ 
200 
2108 


[4 
iS 


DATA @,0,8,12,12,30,63,63 
FOR J=2 TO 29 STEF 3 

FOR K=6 TO 1@ STEP 2 

PRINT @J,k;CHR#(13@) 3 "ab"; CHR# (144) 
NEXT 

NEXT J 

Ni=INT(RND(1)*12)+1 
N2=INT (RND (1) #12) +1 

PRINT @8,17;"WHAT IS "sNis" X "3N23 
PRINT @2,23;""3: INPUT ANS 

PRINT @2,23;" " 

IF ANS=Ni*N2 THEN 200 

EXPLODE 

GOTO 15a 

cc=2 

CD=1 

FING 


228 
230 
246 
258 
44) 
268 
270 
2735 
288 


285 


Duck Shoot 93 
FRINT @8,17;" 


PRINT @CC-1,20;" " 

CC=CC+CD 

IF CC?3@ OR CC<2 THEN CD=—-CD 

PRINT @CC—1,20; CHR# (129) 5 "c"5 CHR (1 


IF KEY$<>"_" THEN 220 
SH=SH+1 

ZAP 

FOR J=19 TO 5S STEP -1 

PLAY 1,0,@,@:MUSIC 1,3, INT(J/2) ,9:W 


AIT 10:PLAY @,8,8,0 


290 


IF PEEK (48@040+CC+I*#40)=97 OR PEEE (4 


8040+CC+J#48)=98 THEN 338 


388 
303 
305 
3108 
314 
320 
338 
348 
350 
546 
278 
588 


395 
40a 
410 


FRINT @CC,J3"."5 

WAIT 3 

PRINT @CC,J;" "s; 

NEXT J 

PRINT 

GOTO 38a 

FOR B=1i TO 1i@ 

EXPLODE 

NEXT B 

PRINT @CC-1,J;" - 

HT=HT+1 

PRINT @4,1;CHR#(129)3 "SHOTS: ";SH;" 
HITS: "sHT;CHR#(144) 

PRINT @CC,20;" " 

IF HT=3@ THEN END 

GOTO 1308 
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WRONG! 
THE MISSING NUMBER WAS 93 


46 4+ 77 » 139 


HAT s T 
et “ HE MISSING NUMBER 





A competition designed to see who is quickest between two players 
at working out the missing number. You can play on your own but 
it’s no fun if there isn’t anyone to show off to. 


You'll be given a selection of sums and you will have to provide the 
number that has been replaced by a question mark. 


Examples: 
234+ ? =563 


2? — 56=834 


169- 73= ? 


Missing Numbers 95 
How to play 


You will be asked the players’ names which you type in remember- 
ing to use capitals, and press RETURN 


The computer will then ask you a question of the type shown 
above. 


Type in your answer and press RETURN 
Players will be asked questions alternately. 


A wrong answer will mean a ‘raspberry’ buzz and the next question 
will move to your opponent. 


Scores are shown on the screen. 


Program 


1@ REM MISSING NUMBER 

26 CLS 

3@ FAPER 7: INE 4 

4@ PRINT@2, 46; CHR# (131) ; CHRE (145) ; "WHAT 
ARE THE PLAYERS NAMES?"; CHR# (151) 
5@ PRINT 

7@ INPUT " PLAYER ONE "3;P#(1) 

8@ PRINT 

B85 FING 

96 INPUT " PLAYER TWO ";P#(2) 
11@ PING 

126 WAIT 300 

125 CLS 

180 MAX=89 

190 MIN=10 

248 FOR C=i TO 2 

21@ RC1)=INT CRND (1) *MAX) +MIN 
220 R¢2Z)=INT CRND (1) *#MAX)+MIN 
238 SIG=INT(RND (1) *2) 

240 IF SIG=@ THEN SIG=-i 

250 R(Z)=R(1)+R(2)*51G 

2595 IF R(3)<@ THEN 210 

264 R=INT (CRND(1)#3)+1 

270 IF R=1 THEN PRINT@11,12; "“??": GOTO 
238 


96 Missing Numbers 


275 PRINT@11,12;RIGHT#(STR#(R(1)) ,2) 
28@ IF R=2 THEN PRINT@16,12; "??":GOTO 
290 

285 FRINT@16, 12; RIGHT#(STR#(R(2)) 52) 
29@ IF R=S THEN PRINT@21,12:;"77 “:GOTO 
20a 

295 PRINT@2Z1,12;RIGHT#(STR#(R(3)) LENS 
TREC(R(S)))—-2)g" 

300 IF SIG<@ THEN PRINT@14,12;3"-" 

3@5 IF SIG?@ THEN PRINT@14,12; "+" 

310 PRINT@19,12; "=" 

33@ PRINTG@2, 16; CHR# (129) ;CHR#(147)3 "WH 
AT IS THE MISSING NUMBER, ";CHR#(151) 

335 PRINT CHR#(129);CHR$ (147) 3P#(C) CHR 
€(151)3" " 

338 PRINT: FRINT 

349 INPUT ANS 

344 PRINT @2,22;" " 

350 IF ANS<>R(R) THEN 438 

368 PING 

37@ PRINT@12,8; CHR# (131) ;CHR#(145) 3 "COR 
RECT! "3 CHR#(151) 

3B@ S(C)=S(C)4+1 

390 PRINT@S, 1; CHR# (128) ;CHRS (146) sP$(1) 
i": "sS(1)3CHR#(151) 

400 PRINT@2Q, 1; CHR# (128) ;CHR# (146) ;P#(2 
de": "3S(2)sCHR#(151) 

41@ IF S(1)=2@ OR S(2)=2@ THEN 470 

420 GOTO 445 

3@ EXPLODE 

440 FPRINT@12,63 CHR# (129) s CHR# (147) 3 ""WRO 
NG! "sCHR#(151) 

442 PRINT@4,8;CHR# (129) s;CHR# (147) 3"THE 
MISSING NUMBER WAS ";R(R);CHR#(151) 

445 WAIT 680 

450 PRINT@1@,6;" " 

454 PRINT@4,a;" 

456 PRINT@2,195;" i. 

460 NEXT C 

465 GOTO 200 

470 FOR W=1 TO 2 

480 IF S(W)<>20 THEN 5@0 

490 PRINT@S, 5S; CHR# (136) 5 CHR# (146) 5 CHR ( 
27)s"L"sP$(W)s" IS THE WINNER! "; 


495 
388 
318 
320 
aod 
548 
558 


248 
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FRINT CHR#¢(151) 
NEXT W 

FOR J=i TO i7 
PRINT 

NEXT J 

PRINT CHR#(17) 
PAPER 7:INK @ 
END 
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Hangman 


Lio fo SS - 


TILIA Co tht 





This is a game you may have played before using paper and pencil 
but now you are up against a computer. 


The object of the game is to spell out a word correctly, in as few 
moves as possible, to save a man from being hanged. Every correct 
answer helps to complete the word, every wrong answer helps to 
hang the poor man. 


Youcan, if you wish, change the title to hangwoman. 


How to play 


The computer will put on the screen a word and will ask you for a 
letter to help fill in the blanks. 


Hangman 99 


You don’t need to press the RETURN key, just type the letter of 
your choice and the computer will do the rest. 


Each letter you get right will be filled in but each letter you get 
wrong will help to complete the gallows, the rope and the victim. 


The computer will also show the letters you have chosen 
incorrectly so that you don’t choose them again and hang the man 
in error. 


Scores are kept at the top of the screen. 


Remember - think before you print - it could save a life. 


Programming Notes 


The words for selection can be changed when typing in the data in 
lines 700 to 790. If you increase the number of words, change the 
50 in lines 30, 5@ and 80 to match the total number of words. 


Program 


1@ REM HANGMAN 

20 INK 7:PAPER @ 

22 CLS 

3@ DIM W#(5@) 

32 FOR J=@ TO 39 

34 READ N 

36 POKE 46854+J,N 

38 NEXT J 

A@ DATA 12,12, 125 12,12; 12312,512 
42 DATA 63,63,8,0,8,9,8,0 

44 DATA 1,3,6,12,24,48,32,0 

46 DATA 32,48,24,12,6,3,1,@ 

48 DATA 12,30,63,45,63,33,30,12 
5@ FOR J=1 TO 5@ 

6@ READ W#(J) 

7@ NEXT J 

G@ R=INT(RND(1)*5@) +1 

82 LC=@ 

9@ CT=LEN(W#(R) ) 


100 Hangman 


92 PRINT @4,1;CHR#(129); "WORDS: ";NW;" 


150 
160 
178 
Wy ara 
174 
176 
178 
180 
182 
190 
200 
285 
208 
210 
220 


SCORE: ";SC 
FOR J=1 TO CT 

PRINT @11+3,22;"—" 
NEXT J 

FOR C=8 TO 18 
PRINT @15,C;CHR$(13@) 
NEXT C 
FOR C=11 TO 15 

PRINT @20,C;CHR# (129) 


NEXT C 

REM INPUT GUESS 

G#=KEYS 

IF G#<"A" OR G#>"Z" THEN 200 


PING 
FOR J=i1 TO CT 
IF GS=MID#(WS(R),J,1) THEN PRINT @1 


1+J,225;G%:FL=1 


240 
241 
242 
243 
244 
245 
246 
249 
208 
268 
270 
280 
290 
308 
302 


304 
318 
312 
314 
320 
322 
323 
324 
338 
332 
334 
340 


NEXT J 
C+#= Limi 

FOR J=1 TO LEN(W#(R)) 

T$=CHRS (PEEK (48040+22*40+11+J) ) 
C$=CH#+TS 

NEXT J 

IF C#=W#(R) THEN 470 

IF FL=1 THEN FL=@:GOTO 190 

PRINT @LC+4,20;G6% 

LC=LC+1 

IF LC<>1 THEN 300 

PRINT @16,198; "bbbbb" 

GOTO 190 

IF LC<32 THEN 318 

FOR C=8 TO 17:PRINT @18,C;"a":NEXT 


GOTO 198 
IF LC<>3 THEN 320 

PRINT @19,83 "bbbb" 

GOTO 192 

IF LC<>4 THEN 330 

PRINT @23,98;"a" 

PRINT @23,9;"a" 

GOTO 19@ 

IF LC<>5 THEN 340 

PRINT @22, 1@;CHR#(131);"e" 
GOTO 199 

IF LC<>6 THEN 350 


342 
'e 

344 
350 
352 
353 
354 
360 
362 
343 
364 
378 
372 
373 
374 
38a 
382 
383 
384 
440 
470 
480 
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FOR C=1ii TO iS:sPRINT @23,C; "a":NEXT 


GOTO 190 

IF LO¢<+7 THEN 342 
PRINT @22,113;"c" 
PRINT @21,12;"c" 
GOTO 199 

IF LC¢>8 THEN 378 
PRINT @24,11;"d" 
PRINT @25,12;"d" 
GOTO 192 

IF LC<>9 THEN 380 
PRINT @22,14;"c" 
PRINT @21,15;"c" 
GOTO 190 

IF LC<>1@ THEN 46@ 
PRINT @24,14;"d" 
PRINT @25,15;"d" 
GOTO 199 

GOTO 540 

FOR J=1 TO 12 
MUSIC 1,3,3,1@:PLAY 1,8,@,@:wAIT 28 


:PLAY @,8,08,@ 


498 
318 
ai2 
314 
u28 
a3 

348 
358 


NEXT J 

WAIT 300 

SC=SC+1 

NW=NW+ 1 

CLS 

GOTO 8a 

FOR J=12 TO 1 STEP-1 

MUSIC 1,3,3,1@:PLAY 1,0,8,@:wAIT 20 


:FLAY @,0,0,8 


368 
38@ 
382 
398 
580 


NEXT J 

WAIT 300 

NW=NW+1 

CLS 

PRINT @8,10; CHRS (145) 5; CHR# (128) 5 "TH 


E WORD WAS "3;W#(R) ; CHR# (144) 


618 
6206 
630 
708 


WAIT 200 

CLS 

GOTO 8@ 

DATA "SCHOOL", ”" TOMORROW", "ADDRESS", 


"LENGTH", "EXPERT" 


718 


DATA "KETTLE", "COMPUTER", "LEGIBLE", 


"MEDICINE", "BELIEVE" 


720 


DATA "MYSTERY", "DOLFHIN", "FEBRUARY" 


102 Hangman 


» BLANKET", "SPECIAL" 

730 DATA "PAVEMENT", "FRAGILE", "DIFFICUL 
T", "RHUBARB" , PENGUIN" 

748 DATA "ALPHABET", "DAFFODIL", "YACHT", 
"SQUARE", "THROUGH" 

798 DATA "TONGUE", "RASPBERRY", "CUSHION" 
» SOLDIER", "GENIUS" 

768 DATA "SPECTRUM", "CYLINDER", "OIL","D 
ISPENSER", "SCATTER" 

770 DATA "CIRCUIT", "QUESTION", "DEFINITE 
", "PERCH", "CONSTRUCT" 

78@ DATA "WEATHER", "DISTURB" ,"EXHAUST", 
"MOVEMENT", "SEMBLANCE" 

798 DATA "BANTAM", "OCTOBER", "SEPTEMBER" 
» ANNUAL", "FROPORTION" 


25 
Organ 





Here is your chance to become the next Stevie Wonder, Mozart or 
maybe just play ‘Happy Birthday’ to your parents on your 
computer. 


You'll be able to type your own tunes into the computer’s memory 
and have them played back to you. 


How to play 


The top two lines on your computer, beginning Q and A are your 
keyboard and represent the keys of a piano. The top line beginning 
with Q represents the black keys and the bottom row beginning 
with A corresponds to the white keys. 


104 Organ 


When you press a key you will get a coloured symbol on the screen 
and a musical note from your computer. 


When you have finished your tune you simply press the space bar 
and the computer will play back the whole tune for you. 


If you want to clear the memory, and write a new tune, you simply 
press the letter X and the machine will be ready to take your next 
musical masterpiece. 


Program 


1@ REM ORGAN 

30 DIM M(20@) ,@ (208) 

4@ CLS 

5@ FRINT:PRINT "“READY....":PRINT 
68 At=KEYS 

7@ IF At="" THEN 68 

72 O=3 

86 IF AS="W" THEN N=2 

90 IF AS="E" THEN N=4 


144 IF At="T" THEN N=7 

11@ IF At="Y¥" THEN N=9 

120 IF A#="U" THEN N=11 
130 IF A#="0" THEN N=2:0=4 
i4@ IF A#="P" THEN N=4:0=4 
15@ IF A#="A" THEN N=1 

168 IF A#="S" THEN N=3 

176 IF A#="D" THEN N=S 

180 IF A#="F" THEN N=6 

198 IF A#="G" THEN N= 

246 IF A#="H" THEN N=10 
21@ [IF At="J" THEN N=1i2 
228 IF At="K" THEN N=1:0=4 
258 IF AS="L" THEN N=3:0=4 


240 IF At=" " THEN 318 
250 IF At="X" THEN C=@:CLS:GOTO 40 
252 COL=INT(N/2) +145 

260 MUSIC 1,0,N,@:PLAY 1,0@,1,4000 
262 PRINT CHR#(COL);" ";CHR#(151); 
270 C=C+1 

272 IF C>2@@ THEN C=200 

28@ M(C)=N:@(C)=0 


308 
318 
320 


Seng 


330 


332 
336 
3248 
350 


Organ 105 


GOTO 46@ 
CLS 
FOR J=1 TOC 


COL=INT (MCI) /2)4+145 
MUSIC 1,@¢J3) ,M(J) ,@: PLAY 1,0,1,4000 


PRINT CHR#(COL);" "3CHR#(1i51)5 
WAIT 308 

NEXT J 

GOTO 46@ 
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Anagram 


WHAT IS THE WoRos 





If you think that you are good at spelling then this game is for you. 
If you know that you are bad at spelling then this game is certainly 
for you. Well, you need the practice don’t you? A selection of let- 
ters will be scattered around in a box within the screen and the 
player will be asked to unjumble them to make a word. Not any old 
word like MAFILY will do however, when the correct word is 
FAMILY. 


How to play 


This is for one player. 


The selection of letters will not be on one line but will be mixed up 
in asmall square. 
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When you have decided what the correct word is you type it in and 
press RETURN. 


Tries and correct answers will be shown on the screen but, in the 
event of a wrong answer the player will be asked to try again until 
the correct answer is given. 


If you make a mistake press DELETE and begin again, but always 
remember to use CAPITAL letters when typing in your entry. 


Programming Hints 


More difficult words can be used by changing the data statements 
in lines 430 to 470. If you increase the number of words, change the 
20 in lines 30, and 100 to match the total number of words. 


Program 


1@ REM ANAGRAM 

3@ DIM W#(2@) 

40 PAPER 7:INK @ 

4@ CLS 

7@ FOR J=1 TO 20 

@@ READ W$(J) 

9@ NEXT J 

92 GOTO 330 

1@@ R=INT(RND (1) #20) +1 

1@2 FOR J=7 TO 13 

104 PRINT @11,3;CHR#(15@) ;CHR#(128); 

"SCHR (151) 

1@6 NEXT J 

110 FOR J=1 TO LEN(W#(R)) 

13@ P1=INTCRND(1) #6) +1 

14Q@ P2=INT(RND(1)#*6) 41 

150 IF M(P1,P2)=1 THEN 130 

160 LET M(P1,P2)=1 

17@ PRINT @P2+11,P1+4:MID#(WE(R) ,J,1)5 
18@ NEXT J 

192 PRINT @6,16;CHR# (149) ;CHR#(128) ; 
HAT IS THE WORD? ";CHR# (151) 

194 PRINT: PRINT 

200 FOR J=1 TO 6 


= 


108 


Anagram 


21@ FOR E=1 TO 6 
228 M(J,K)=2 

230 NEXT K 

240 NEXT J 

250 INFUT At 

256 PRINT @2,19;" " 

2608 PRINT @6,16;" 

270 TR=TR+i 

280 IF A$="QUIT" THEN 420 

290 IF A$<>W#(R) THEN 399 

=@8 PING 

310 PRINT @11,16;CHR#(149) sCHR#(128)3"C 
ORRECT! "3 CHR# (151) 

320 SC=SC+1 

330 PRINT @2,2;CHR#(147) ;CHR#(128);"TRI 
ES: ";TR;CHR#(151) 

340 PRINT @2@,2;CHR# (147) ;CHR#(128);"SC 
ORE: "3SC;CHR#(151) 

342 WAIT 108 

38@ GOTO 10a 

290 EXPLODE 

400 PRINT @10,16;CHR*# (149) ;CHR# (128); "T 
RY AGAIN! ";CHR#(151) 

485 WAIT 100 

41@ GOTO 19a 

420 PRINT @7,16;CHR#(149);"THE WORD WAS 
"sW$(R)3° "sCHR#(151) 

425 WAIT 3200 

28 PRINT @6,14;" 

430 GOTO 330 

440 DATA "POND","WOOD", "MOUSE", "TIGER", 
“DIGIT” 

452 DATA "IDEA", "ANAGRAM", "MOTH", “PARTY 
” "OCEAN" 

448 DATA "PENNY", "RABBIT", "GUESS", "PEAR 
" "TOAD" 

47@ DATA "BINARY", "PUPIL", "BASIC", "VIDE 
0", "RECORD" 
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This game, along with Morse Code and Constellation games’ could 
save your life one day. You might wander off in a desert, a jungle 
or an ice field and you will thank your lucky stars that you once had 
acomputer. 


The Compass game will help you to identify North from South and 
even North East from South West. 

How to play 

Your friendly computer will draw you a map and show you the 
eight major compass settings North, North East, East, South East, 


South, South West, West and North West. 


The computer will then spin its own little compass setting, point the 
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arrow in a certain direction and ask you to decide where you are 
going. 


Wrong answers mean that you will be asked again and again if 
necessary. 


Random selection means that you may find yourself pointed in the 
same direction twice running but at least you should know where 
you are. 


Programming Notes 


This program uses the same map routine as ‘towns’ and ‘counties’. 
If you are typing in one of these as well you can save yourself some 
work if you just type in the lines that are different with your first 
program still in the computer. Don’t forget to save your first pro- 
gram ona tape. 


Program 


1@ REM COMPASS 
20 PAPER @:INK 7 

8@ GOTO 140 

1@@ CURSET 12,185,1 

110 READ X,Y 

111 IF X=-99 THEN RETURN 

112 IF X>3@ THEN CURSET X,Y,1:GOTO 110 
120 DRAW X,Y,1 

130 GOTO 110 

140 INPUT "WHAT IS YOUR NAME";N¢ 

142 IF LEN(N#)>8 THEN N$=LEFT# (N¢,9) 
146 HIRES 

15@ FOR J=1 To 8 

16@ FOR K=1 TO 1@ 

17@ READ D(J,K) 

180 NEXT K 

19@ READ T#(J) 

2@@ NEXT J 

202 GOSUB 100 

210 FOR R=1 TO 8 

220 C=1:GOSUB 50a 

248 PRINT T#(R) 
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244 PRINT 

25@ WAIT 258 

260 C=@:GOSUB 5a@ 

270 NEXT R 

29@ R=INT(RND (1) *8) +1 

3@@ C=1:GOSUB 50a 

316 PRINT "TRIES: "3TR 

318 PRINT "SCORE: ";SC 

32@ INPUT "WHICH DIRECTION IS THIS";A# 
328 TR=TR+1 

330 IF A$=T#(R) THEN 420 

34@ EXPLODE 

350 PRINT "TRY AGAIN, ";N¢ 

36@ WAIT 200 

38@ GOTO 316 

420 FING 

410 PRINT "CORRECT!" 

42@ WAIT 200 

44@ C=@:GOSUB 5aa 

45@ SC=SC+1 

460 GOTO 290 

50@ FOR J=1 TO 1@ STEP 2 

51@ X=D(R,J) 

520 Y=D(R,J+1) 

530 IF X>25 THEN CURSET X,Y,C:GOTO 550 
54@ DRAW X,Y,C 

550 NEXT J 

56@ RETURN 

7@@ DATA 115,85,0,-20,110,70,5,-5,5,5," 
NORTH" 

710 DATA 105,85,20,-20,120,65,5,8,0,5,”" 
NORTH EAST" 

720 DATA 105,75, 20,0,120,70,5,5,-5,5,"E 
AST" 

730 DATA 105,65,20,20,125,80,0,5,-5,0," 
SOUTH EAST" 

748 DATA 115,65,0,20,120,88,-5,5,-5,-5, 
"SOUTH" 

75@ DATA 125,65,-20,20,1205,88,0,5,5,8,”" 
SOUTH WEST" 

76M DATA 125,75,-20,0,118,70,-5,5,5,5," 
WEST" 

77@ DATA 125,85,-20,-20,110,65,-5,8,9,5 
,"NORTH WEST" 

1@@@ DATA 5,-5,2,2,13,-9,1,-4,2,8,@,-2, 
2,0,5,-10,3,-7,5,8,1,-5 
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1010 DATA 18,-3,12,2,35—-1,25—5555—3565- 
10,-10,7,-5,1,-3,4 

1828 zells As @,-9,-7,-9,8,8,-3,-5,-2,-9 
»55—-3,—-4,3,0,8,-2,-7,@8 

1@3@ DATA @,- 2.3.0, a, -3,-3,0,5,-5,3,0,1 
7,-15,2,-5,-2,-18,-2,-4 

1048 DATA io 216 oe wie ee 
2 y2y7y—dy 5939-35 -4 

1950 DATA 6,4,5,—-3,—-6,8,—-5,—-7,3,-5,8,-3 
»-7,@,@,-8,8,-6,-4,2 

1060 DATA 1,-4,-2,2,—-2,-2,—-5,4,—-9,-15,4 
775,120,271 

107@ DATA 1,2,-2,4,5,-1,4,08,12,13,-3,3, 
$.6.4-5 

1080 DATA @,2,-8,-4,8,6,5,6,0,5,—-5,6,8, 
8,2,-9,6,-2 

1098 DATA 7,2,8,4,3,12,-2,14,-9,14,-12, 
5,5,0 

1108 DATA 0,5,-18,6,5,1,-3,2,6,3,12,-2, 
3,1,0,2,-4,1 

i110 DATA 2535-55 6,-2,3,—-4,-1,-18,12,-1 
4,-4,-2,3 

1128 DATA -10,1,0,1,-18,-4,-10,2,-9,1,2 
» 25-12, 2,-9,-4 

113@ DATA -8,3,-6,3,—-3,12,-4,1,-8,—-5,-7 
9 15-3,4,-1,-2 

114@ DATA ~22,0,4,-4,3,-6,-5,-6 535-5, - 
3,1@6,167,4,-2 

1150 DATA 6,2,-4,4,-5,-4,155,135,4,0,0, 

-2,0,-2,-2 

1160 DATA 53,62,8,-5,-18,-5,-3,3,8,2,3, 
4,-99,8 
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You are a destroyer captain alone in a hostile sea surrounded by a 
pack of submarines which are travelling secretly to a rendezvous. 
The submarines cannot break radio silence or send for help and 
must not attack you for fear of giving their position away but you 
can sink as many of them as you can - with as few depth charges as 
possible. 


How to play 
On the screen will be shown a board divided into 100 squares. The 
submarine is hiding in one of those squares. The bottom (horizon- 


tal) line is called X and the upright (perpendicular) line is called Y. 


Each line of boxes goes from @ to 9 and you have to give the box 
numbers to the computer when it asks for your entry. You will be 
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asked to type in a number for the X and Y lines. If you think that 
the submarine is in a box 8 across and 5 high then type 8 and 5 when 
the X and Y positions are asked for. 


Remember there is no need to press RETURN after each pair of 
numbers. 


After the pair of numbers is entered you will hear the ‘crump’ of an 
exploding depth charge. If you make a direct hit first time you will 
hear a ‘whooping’ sound and the screen will show you how many 
tries you took to sink the submarine. 


If however you miss, the computer will tell you if your shot was 
North, South, East or West of the target and you must then plan 
your next shot. 


As soon as the submarine is sunk your computer will search and 
detect another target. 


Special Note Expert captains should be able to detect and sink the 
enemy within four moves. 


Program 


1@ REM SUBMARINE 

2@ PRINT CHR#(17) 

3@ INK 7:FAPER @ 

4@ CLS 

5@ PRINT @3,@;CHR#(129); "SHOTS: "3SH 
6@ PRINT @21,@;CHR#(129); "HITS: "3HT 
7@ PRINT @8,2;"Y" 

@@ PRINT @22,16;"X" 

92 FOR J=10 TO 19 

1@@ PRINT @J,3;"." 

11@ PRINT @J,13;"." 

120 PRINT @J,15;RIGHTS (STR#(J-1@) ,1) 
i3@ NEXT J 

140 FOR J=3 TO 13 

i15@ PRINT @9,J;"." 

16@ PRINT @2@0,0;"." 

170 NEXT J 

18@ FOR J=4 TO 13 

19@ PRINT @7,J3;STR#(13-J) 


218 
220 
238 
254 
240 
241 


242 
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NEXT J 
SY=INT(RND (1) #10) 
SX=INT (RND (1) *1@) 

PRINT @2,235""; 

INPUT “YOUR SHOT (X,Y) "3;AX,AY 
PRINT @2,23;" 


IF AX<@ OR AX>9 OR AY<@B@ OR AY>9 THE 


N 240 


245 
44) 

208 

268 


PRINT @1@+AX, 13-AY; CHR# (145) 5 CHR# (1 


FOR J=1 TO 10 
MUSIC 1,3,11-J,1@:PLAY 1,@,0,@:WAIT 


1@:PLAY @,8,0,@ 


278 
2970 


300 
310 
328 
338 
348 
358 
348 
376 
374 
388 
398 
400 
410 
420 
438 
43s 


NEXT J 
PRINT @2,18;" 


PRINT @2,198; 

IF AX=SX AND AY=SY THEN 428 
PRINT "YOUR SHOT WAS "; 

IF AY<SY THEN PRINT "SOUTH "; 
IF AY>SY THEN PRINT "NORTH "; 
IF AX<SX THEN PRINT "WEST "; 
IF AX>SX THEN PRINT "EAST "3 
PRINT "OF THE" 

PRINT "SUBMARINE, CAPTAIN. " 
SH=SH+1 

PRINT @1@,@;CHR#(129) ;SH 
WAIT 220 

GOTO 234 

FOR J=1 TO 20 

EXPLODE:WAIT 2 

PRINT @10+AX,13-AY;CHR#(145)3" "53CH 


R# (144) 


440 
450 
460 
472 
480 
490 
BEEN 
340 
31@ 
3408 
berber 


NEXT J 

PRINT @2,18;"A DIRECT HIT!" 
HT=HT+1 

IF HT=1@ THEN 540 

WAIT 320 

PRINT @2,19; "ANOTHER SUBMARINE HAS 
DETECTED!" 

WAIT 400 

GOTO 40 

FOR J=1 TO 10 

MUSIC 1,3,3,1@:PLAY 1,0,8,@:WAIT 10 
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36@ 
O62 
w64 
57 
238 
Soa 
688 


NEXT J 

WAIT 5@:PLAY @,8,8,2 

CLS 

PRINT @11,8; "CONGRATULATIONS!" 
PRINT @9,1@:;"TEN SUBMARINES SUNK!" 
PRINT @11,13;"YOU HAVE BEEN" 

PRINT @9,14; "PROMOTED TO ADMIRAL!" 
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This is a game to see how sharp your eyesight is and how quick you 
are at spelling words which are hidden in the screen. 


The computer will put up a selection of letters all over the screen 
and, hidden amongst this alphabet spaghetti will be certain words 
which you will have to spot and spell out to your computer. 


How to play 
When you find a word on the screen you type it in. You then press 
the RETURN key and, if you have correctly identified and spelled 


out the word, it will be picked out, in green, on your screen. 


The score board will show your number of tries and the number of 
words you have correctly spotted. 
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When you cannot find any more words you simply type in the word 


QUIT. 


Your computer will then blank out the words you have found and 


show, inr 


ed, all the words you have missed. 


Your score will be shown on the screen. 


Program 


ming Hints 


If the selection of words is too simple or difficult you can change 
the data in lines 500 to 530. Make sure that all the words you use 
have exactly 7 letters. 


Program 


i@ 
20 
48 
47 
u@ 
herd 
50 
78 
88 
78 
108 
118 
Lis 
117 
119 
120 
125 
i238 
14@ 
156 
16@ 
i7@ 
186 
i?fg 
248 


REM WORD SEARCH 
cLS 
DIM M(2@) 
DIM B(17) 
DIM W$(2@) 

DIM C#(2@) 
FOR J=1 TO 2@ 
READ W#(J) 
NEXT J 
PRINT @2,3; 

FOR K=1 TO 16 
Ri=INT (RND (1) *2@) +1 

IF M(R1)=1 THEN 110 

MCRL) =1 

C#(K) =W (RI) 
R2=INT (RND (1) #18) 43 

B(K) =R2-1 

FOR L=1 TO 32 

IF L=R2 THEN PRINT C#(K)::L=L+7 


LT=INT (RND (1) *26) +45 

PRINT CHR (LT); 

NEXT L 

PRINT 

NEXT E 

PRINT @2,23;""3:INPUT "YOUR WORD";A 
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202 IF A¢="QUIT" THEN 422 
204 PRINT @2,23;" 

205 TR=TR+1 

207 PRINT @11,21;" " 

21@ FOR J=1 TO 16 

220 IF A$=C#(J) THEN 270 

23@ NEXT J 

240 EXPLODE 

250 PRINT @12,21;CHR#(149) ; "WRONG! ";CHR 
$(151) 

248 GOTO 300 

270 PING 

275 PRINT @B(J) ,J+2;CHR$ (146) ;C#(J) CHR 
$(151) 

280 PRINT @11,21;CHR#(149) 3; "CORRECT! "3C 
HR# (151) 

285 C#(J)="" 

29@ SC=SC+1 

300 PRINT @4,@;CHR#(145);"TRIES: "sTRsC 
HR$ (151) 

310 PRINT @20,0;CHR#(145):"WORDS: ";SC; 
CHR# (151) 

320 IF SC<>16 THEN 208 

33@ PRINT @2,24;""; 


352 END 
4@@ FOR J=1 TO 16 
404 IF C#(J)="" THEN 420 


410 PRINT @B(d) ,J+2; CHRE (145) ;C#¢5);CHR 
#(151) 

420 NEXT J 

438 GOTO 3208 

320 DATA "PROMISE", "SPECIAL", "BLANKET", 
"FRAGILE", " THROUGH" 

310 DATA "ADDRESS” "CEILING", "AMATEUR", 
"MYSTERY", "LEGIBLE” 

520 DATA "BELIEVE", "STATION", "RHUBARB", 
"DISSECT", "SAVIOUR" 

532 DATA "ALCOHOL", "CUSHION" ,"SOLDIER", 
"CABARET", "AQUATIC" 
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No, it’s not that same old boring game that you play when it’s rain- 
ing outside and there is nothing else to do. 


With our noughts and crosses you have to solve a problem before 
you can make your mark on your computer’s board. You will have 
to decide if you can answer the question before you choose your 
box. 


How to play 


The computer will ask for the players names which you type in and 
enter by pressing the RETURN key. 


The computer will then present you with a board and in each of the 
nine squares you will find a maths sum to solve. 
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First choose the box you want and type the number. 


Now you can type in your answer and see if you get your nought or 
cross for the correct answer. 


Your opponent must follow the same steps. 


If either player gives a wrong answer the computer moves to the 
opposing player’s turn. 


The game progresses until someone gets a winning line at which 
point you can press CTRL and C together, then RUN to play 
again. 


If no one can complete a winning line then the game can proceed 
until all the boxes are completed and the player with the highest 
number of noughts or crosses will be the winner. 


Programming Note 


You can make the sums easier by reducing the numbers in line 200 
or more difficult by typing in a larger number. 


Program 


1@ REM NOUGHTS AND CROSSES 

2@ CLS 

3@ PAPER 7: INK @ 

4@ DIM N(18) 

o@ PRINT @2,6; "WHAT ARE THE PLAYERS NAM 


54 PRINT: PRINT 

46@ INPUT "PLAYER ONE";P#(1) 

64 PRINT: PRINT 

7@ INPUT "PLAYER TWO";P#(2) 

B@ CLS 

110 FOR J=2 TO 19 

120 PRINT @11,J;CHR#(15@)3" “;CHR#(151) 
130 PRINT @23,J3;CHR#(150);" ";CHR#(151) 
140 NEXT J 
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168 


17@ 


198 
200 
218 
220 
238 
240 
208 
260 
270 
280 
290 
308 
3108 
328 
324 
3308 


PRINT @3,6;CHR#(15@) 5" 
“sCHR# (151) 
PRINT @3,13;CHR#(15@) 5" 
"CHR (151) 
FOR J=1 TO 18 
N (J) =INT (RND (1) *9@@) +108 
NEXT J 
C=1 
FOR J=4 TO 28 STEP 12 
FOR K=2 TO 16 STEP 7 
PRINT @J,K3N(C) 
C=C+1 
PRINT @J,K+13;N(C) 
C=C+1 
PRINT @J+4,K3 "+" 
PRINT @J,K+3; "SQU";STR#(INT(C/2)) 
NEXT K 
NEXT J 
FOR N=1 TO 2 
PRINT @2,21;P$(N)3", WHICH NUMBER S 


QUARE?" 


348 
342 


344 
345 
346 


358 
354 


360 
378 
400 
426 
422 
430 
440 
*7-S 
4358 


INPUT SQ 
PRINT @2,21;"SQUARE ";SOQ;" 


IF SQ<i OR SQ@>9 THEN 330 
IF H(SQ)=1 THEN 330 
PRINT @2,21; "SQUARE ";SQ;" 


INPUT "WHAT IS THE ANSWER";ANS 
PRINT @2,22;" 

IF ANS=N(SQ#2)+N(SQ@*2-1) THEN 420 
EXPLODE 

GOTO 620 

H(S@) =1 

PING 

IF SQ>@ AND S@<4 THEN W=4: V=SQ#7-5 
IF SQ@>3 AND SQ@<7 THEN W=15:V=(SO-3) 


IF SQ@>6 AND S@21@ THEN W=27:V=(50-6 


»*7-S5 


440 
478 
438 
496 


FOR J=@ TO 3 

PRINT @W-1,d+V;" ee 
NEXT J 

IF N=2 THEN 36408 


308 
318 
3208 
358 
348 
380 
4688 
620 
622 
638 
640 
650 
654 
660 
664 
6708 
680 
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PRINT @W+1,V+@;"X xX" 
PRINT @W+2,V+13"X" 
PRINT @W+1,V+2;"X xX" 
GOTO 620 

PRINT @W+1,V+@; "000" 
PRINT @W+1,V+1;"0 0" 
PRINT @W+1,V+2; "000" 
FA=0 

FA=0 

FOR J=1 TO 9 

IF H(J)=@ THEN FA=1 
NEXT J 

IF FA=@ THEN 678 
NEXT N 

GOTO 324 

PRINT @ 3,24;"" 

END 





Would you believe that there are people living in this country who 
don’t know where they are - on a map? Now we are sure that clever 
young readers of this book will have a good idea of where they live 
but will they know where other people live? 


To find out we have devised this game to help you find out where 
the major cities in England and Wales are to be found. Scotland 
and Northern Ireland are ona separate program. 


How to play 


The computer will draw an outline map for you and give you a list 
of ten towns to choose from. 
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The computer will then choose, at random, a town for you to iden- 
tify. A bright dot will indicate the town in question. 


Type in your answer in CAPITALS. 


Tries and scores are shown on the screen. 


If you are wrong it will be a case of trying until you get it right. 
After all, it pays to know where you are - doesn’t it? 


Programming Notes 


This program uses the same map drawing routine as ‘counties’ and 
‘compass’. If you are typing in all of them you will save yourself 
some work if you just type in the lines that are different with your 
first program still in the computer. Don’t forget to save your first 
program onto a tape. 


Program 


1@ REM TOWNS 
2@ PAPER @:INK 6 

3@ HIRES 

5@ FOR J=1 TO 10 

6@ READ M(J,1),M(J,2),T#(I) 

7@ NEXT J 

8@ GOTO 140 

90 REM DRAW MAP 

1@@ CURSET 12,185,1 

11@ READ X,Y 

111 IF X=-99 THEN RETURN 

112 IF X>3@ THEN CURSET X,Y,1:GOTO 1190 
120 DRAW X,Y,1 

13@ GOTO 110 

140 GOSUB 98 

16@ FOR K=1 TO 10 

162 PRINT T#(K) :PRINT 

164 FOR C=1i TO 18 

166 CURSET M(K,1),M(K,2),@:CIRCLE 3,1 
174 WAIT 20 

176 CURSET M(K,1),M(K,2),@:CIRCLE 3,0 
177 WAIT 20 
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178 
188 
181 
182 
184 
198 
192 
194 
196 
198 
208 
=108 
228 
250 
240 
250 
269 
=78 
274 
238 
308 
318 
328 
334 
346 
44) 74) 
710 
720 
938 
940 
950 
F468 
970 
986 
998 


NEXT 
NEXT 
WAIT 


Cc 
K 
208 


R=INT (RND (1) #10) +1 


FOR C 


=1 TO 5 


CURSET M(R,1),M(R,2),@:CIRCLE 3,0 


WAIT 


10 


CURSET M(R,1),M(R,2),@:CIRCLE 3,1 


WAIT 
NEXT 


PRINT 


PRINT 


INPUT 


IF At 


12 

Cc 
“TRIES: "3TR 
"SCORE: "3SC 


"WHICH TOWN IS THIS"; At 
CURSET M(R,1),M(R,2),@:CIRCLE 3,0 
TR=TR+1 


=T#(R) THEN 3008 


EXPLODE 


PRINT 
WAIT 
GOTO 
FING 
PRINT 
SC=SC 
WAIT 
GOTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"TRY AGAIN!" 
208 
184 


"CORRECT!" 
+1 
202 

182 

143,158, "BRIGHTON" 
97,137, "BRISTOL" 
80,131,"CARDIFF" 
114,94, "COVENTRY" 
134,50, "HULL" 
112,50, "LEEDS" 
85,50, "LIVERPOOL" 
145,137, "LONDON" 
112,5, "NEWCASTLE" 
52,175, "PLYMOUTH" 


1008 DATA 5,-5,2,2,13,-9,1,—-4,2,0,8,-2, 
2,8,5,-10,3,-7,5,@,1,-5 
1818 DATA 18,-3,12,2,3,-1,2,—-5,59—-3,6,- 
10,-10,7,-5,1,-3,4 


1928 DATA -4,8,-9,-7,-9,0,9, 


1597-3 ,-4,35,0,8,-2,-7,8 
1032 DATA O,-2,3,0,80,-3,-3,0,5,-5,3,8,1 
7,-15,2,—-5,-2,-10,-2,-4 


1840 DATA 1,-2,-18,-5,-3,-2,7,-7,13,-9, 


> 2) 


Lg 257s og 


poy-3_-4 


-3,-5,-2,-9 
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1050 DATA 6,4,5,—-3,-6,8,—-5,-7,3,-5,8,-3 
»77,8,8,-8,8,-46,-4,2 

1060 DATA 1,-4,-2,2,—-2,-2,-5,4,—-9,-15,4 
p749,120,21 

1870 DATA 1,2,-2,4,5,-1,4,0,12,13,-3,3, 
38.4.3 

1080 DATA 0,2,-8,-4,8,6,5,6,8,5,-5,6,8, 
8,2,-97,6,-2 

1890 DATA 7,2,8,4,3,12,-2,14,—-9,14,-12, 
3, 9,8 

110@ DATA @,5,-10,6,5,1,—-3,2,6,3,12,-2, 
3,1,4,2,-4,1 

1110 DATA 2,3,-5,6,-2,3,—-4,-1,-180,12,-1 
4,-4,-2,5 

1120 DATA -10,1,0,1,-10,-4,-10,2,-9,1,2 
y25712,2,-9,-4 

1130 DATA -8,3,-6,3,—-3,12,—-4,1,-8,-5,-7 
71,-3,4,-1,-2 

114@ DATA -2,2,0,4,—-4,3,—-6,—-5,—-6,3,-5,- 
3,10@6,167,4,-2 

1150 DATA 6,2,-4,4,-5,-4,155,1355,4,0,0, 
2y-2,8,-2,-2 

1160 DATA 53,62,8,-5,-10,-5,-3,5,0,2,3, 
6,-99,48 


1@ REM TOWNS 

12 REM SCOTLAND AND NI 

20 PAPER @:INK 6 

3@ HIRES 

5@ FOR J=1 TO 1@ 

60 READ M(J,1),M(J,2) ,T#(J) 
7@ NEXT J 

8@ GOTO 140 

9@ REM DRAW MAP 

1@@ CURSET 38,172,1 

110 READ X,Y 

111 IF X=-99 THEN RETURN 
112 IF X>3@ THEN CURSET X,Y,1:GOTO 110 
120 DRAW X,Y,1 

130 GOTO 110 

149 GOSUB 9a 

168 FOR K=1 TO 10 
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162 PRINT T#(K):PRINT 
164 FOR C=i TO 10 
166 CURSET M(K,1),M(K,2),@:CIRCLE 
174 WAIT 20 
176 CURSET M(K,1),M(K,2) ,@:CIRCLE 
177 WAIT 2a 
178 NEXT C 
180 NEXT E 
181 WAIT 200 
182 R=INT(RND(1)#10)41 
i184 FOR C=i TO 5 
192 CURSET M(R,1),M(R,2),@:CIRCLE 3,0 
192 WAIT 18 
i94 CURSET M(R,1),M(R,2),@:CIRCLE 3,1 
196 WAIT 10 
198 NEXT C 
200 PRINT "TRIES: ";TR 
210 PRINT "SCORE:";SC 
220 INFUT "WHICH TOWN IS THIS";A¢ 
2308 CURSET M(R,1),M(R,2),@:CIRCLE 3,9 
24@ TR=TR+1 
250 IF A$=T#(R) THEN 300 
268 EXPLODE 
270 FRINT "TRY AGAIN!" 
274 WAIT 200 
230 GOTO 184 
3@@ PING 
310 PRINT "CORRECT!" 
320 SC=SC+1 
334 WAIT 200 
340 GOTO 182 
928 DATA 173,60, "ABERDEEN" 
918 DATA 112,142,"AYR" 
928 DATA 60,155, "BELFAST" 
3@ DATA 152,89, "DUNDEE" 
948 DATA 147,128, "EDINBURGH" 
950 DATA 124,125, "GLASGOW" 
949 DATA 132,51," INVERNESS" 
97@ DATA 59,145, "LARNE" 
980 DATA 131,112, "STIRLING" 
99@ DATA 147,9," THURSO" 
1888 DATA -3,1,-4,-2,0,-2,-4,-3,-1,-4,- 
2 y—-2y—258 
1018 DATA -5,6,-2,3,-3,1,-3,—-3,—-4,-2,-1 
p39 4g 1 yl 4-5, —-1,-655 5-2 


Cd 
ay 
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1020 DATA 10,-3,-5,-4,8,-2,4,8,4,-4,7,- 
10,3,1,3,-3,8,—-4,3,2,4,-1 

1030 DATA 3,-3,1,2,1,0,1,-1,4,3,5,-2,0, 
8,3,0,-2,3,6,9 

104@ DATA 1,-3,1,8,1,6,—-7,8,9,-6,3,5,0, 
3,2,2,0,6,-1,-3,—-2,-3 

105@ DATA -1,-2,—-2,—-25-145252565-353555- 
1,1,3,-3,4 

1068 DATA -—2,-1,-2,2,5—-1,—35—25—3 5-4 565- 
5,4,-8,-5,-4,2 

1070 DATA 15@,161,-15,2,8,2,—-5,2,-2535- 
3,0,-2,-2,-3,2,—-4,-7 

108@ DATA @,11,-2,1,—-3,—-2,—-25—45—-5y—39- 
3,-4,-4,3,1,6,-1,1,-5,-13 

1998 DATA 3,-3,1,4,1,8,8,-4,3,-5,3,-10, 
3,-2,0,-3,-4,-5,1,-18,3,-3 

110@ DATA 6,2,@,-1,-5,-10,-3,8,-2,-2,1, 
-6,-2,0,-1,-6,—-2,3,-2,—-7,8,-7 

1110 DATA -5,0,-6,5,8,10,-6,19,-3,8,-1, 
-2,2,-2,0,-5,4,—-5,-1,-13 

1120 DATA 4,-5,-3,-4,13,-25,-1,8,-13,15 
»-9,-5,0,-1,4,-3 

1130 DATA 30,-70,6,3,1,4,6,-4,2,8,-2,3, 
10,-4,4,1,10,1,4,—-5 

1148 DATA 6,4,-3,6,8,5,-20,15,08,3,-2,0, 
@,2,5,-1,0,2,-5,4 

115@ DATA -13,13,1,0,8,-7,1,1,17,-7,1,2 
yO 2545-2510, 2,5,-1,6,2 

1160 DATA 1,1,0,4,-2,5,—-9,235—SySyly2_- 
5,6,-2,1,-4,-2 

1170 DATA -8,4,-2,3,8,1,10,-4,-2,4,2,1, 
3,3,-2,3,-8,8,—-3,4 

1180 DATA -2,1,-14,-4,-2,-1,8,1,11,7,5, 
-1,4,3,2,0,4,—-4,1,0,5,4 

1190 DATA 6,0,1,1,5,1,3,4,0,4,2,3,-6,8, 
-2,10,-20,14,-99,0 
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You may have heard of voles and owls but we'll wager you haven’t 
been ona vowel chase before. 


You'll find yourself in the form of a little man running around an 
alphabetic maze collecting points for each vowel (A, E, I, O, U) 
which you munch. 


But beware, there isa maze keeper out to munch you. 


How to play 


Your tiny figure can be moved up and down using keys Q and A. 
For left and right use O and P respectively. Every time you munch 
a vowel you get one point and the space is filled in by your com- 
puter with a consonant, or even another vowel. 
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If you get all the vowels from the screen before you are caught you 
get 10 bonus points. 


However, you also lose one point for every consonant you eat so 
try and stick to the maze corridors or you could wind up with a 
minus score. 


As soon as the game is completed, or you have been munched up 
by the mazekeeper, your computer will ask you if you want to play 
again in which case you press Y or N for yes or no and press 
RETURN. The only advantage you have over the maze keeper is 
that you can run through the letters, which will cost you minus 
points, but the maze keeper must keep to the aisles. 


If the maze keeper gets you and the game ends the screen will light 
up all the vowels you have missed. 


Program 


1@ REM VOWEL CHASE 

2@ CLS 

24 PAPER 7::INK @ 

3@ POKE 590,5 

4@ PRINT CHR#(17) 

5@ FOR N=0 TO 15 

6@ READ D 

7@ POKE 46856+N,D 

8@ NEXT N 

98 DATA 12,12,30,45,12,12,18,18 
100 DATA 0,30,63,45,63,45,51,30 
110 SC=a 

112 PRINT @19,@;CHR#(149);"HI SCORE: "; 
HS; CHR# (151) 

120 PRINT @4,0;CHR#(149); "SCORE: ";CHR# 
(151) 

130 PR=17 

140 RP=17 

150 PC=15 

168 CP=15 

17@ GR=5 

18@ RG=5 

198 GC=15 
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200 CG=15 
26 FF=0 

210 FOR J=4 TO 22 STEP 2 

220 FOR K=4 TO 34 STEP 2 

238 PRINT @K,d3CHR# (INT (RND (1) #26) +45) 
248 NEXT K 

25@ NEXT J 

268 PRINT @PC,PR;"a" 

27@ GOTO 972 

300 AS=KEYS 

310 IF As="Q" AND PR>3 THEN PR=PR-1 

320 IF A$="A" AND PR<23 THEN PR=PR+1 
320 IF At="0" AND PC23 THEN PC=PC-1 

340 IF At="P" AND PC<35 THEN PC=PC+1 
350 IF PC=CP AND PR=RP THEN 530 

360 G#=CHR# (PEEK (48040+PC+PR*4Q) ) 

364 IF G$="" OR GS="_" THEN 410 

370 IF Gf="A" OR G#="E" OR GS="I" OR GF 
="0" OR GS="U" THEN 430 

29@ SC=SC-1 

408 EXPLODE 

410 GOTO 458 

420 IF PEEK (48040+PC+PR*4@)=98 THEN 8@@ 
424 GOTO 450 

430 PING 

448 SC=SC+1 

450 PRINT @PC,PR;"a" 

460 IF RP/2<>INT(RP/2) OR CP/2<>INT(CP/ 
2) THEN 480 

470 PRINT @CP,RP;CHR# (INT (RND (1) #26) +65 
):GOTO 490 

480 PRINT @CP,RP;" " 

490 RP=PR 

5@0 CF=PC 

510 PRINT @10,@;CHR#(149);" "sSC3" "3CH 
R$ (151) 


538 RETURN 

600 IF RND(1)>.7 THEN WAIT 1@:GOTO 720 

606 IF GRePR THEN GR=GR-1:GOTO 650 

616 IF GR¢<PR THEN GR=GR+1:GOTO 650 

620 IF GC>PC THEN GC=GC-1:GOTO 650 

630 IF GC<PC THEN GC=GC+1:GOTO 650 

640 GR=GR+INT (RND (1) #3) -1: GC=GC+INT (RND 
(1)#3)-1 

650 IF PEER (48040+G6C+GR*40)=97 THEN 88a 
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454 IF GR/2<2INT(GR/2) OR GC/2<2INT(GC/ 
2) THEN 668 

656 GR=GR+INT (RND (1) *3)—-1:GC=GC+INT (RND 
(1) #3)-1 

668 IF GR/2=INT(GR/2) AND GC/2=INT(GC/2 
) THEN GR=RG:GC=CG:GOTO 720 

67@ PRINT @CG,RG;" " 

68@ PRINT @GC,GR;"b" 

69@ RG=GR 

7@@ CG=GC 

720 RETURN 

a@@ PRINT @CG,RG;" " 

81@ PRINT @CF,RP;" " 

920 FOR J=1 TO 1@ 

B24 WAIT 1@ 

83@ FRINT @GC,GR; "a" 

840 ZAP:WAIT 18 

85@ PRINT @GC,GR;"b" 

852 NEXT J 

@54 FOR J=2 TO 2@ STEP 2 

856 FOR K=2 TO 32 STEF 2 

@58 S#=CHR# (PEEK (48040+K+I*4@) ) 

B40 IF S#<>"A" AND S#<>"E" AND S#<3"I" 
AND S#<>"0" AND S#<>"U" THEN 864 

862 FF=1:PRINT @K,J;CHR#(145°3S#;CHR#(1 
51) 

864 NEXT K,d 

865 IF FF=1 THEN 876 

846 PRINT @10,1@;CHR#(149); "BONUS 18 PO 
INTS"; CHR# (151) 

872 SC=SC+10 

874 PRINT @10,@;CHR#(149);" "3;SC:" "3CH 
R# (151) 

876 PRINT @3,25;"_" 

878 INPUT "PLAY AGAIN"; Q¢ 

88@ IF LEFT#(@#,1)="N" THEN 1002 

9@6 IF SC>HS THEN HS=SC 

91@ CLS 

920 GOTO 110 

97@ GOSUB 300 

974 AS=KEYS 

98@ GOSUB 600 

998 GOTO 97a 

i@@@ END 
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Quick, quick, there is a plane crew parachuting down from a 
damaged airliner into a pine forest and the pilot’s parachute hasn’t 
opened - only you can save him from crashing into the ground. 


How to play 


At the top of the screen you will see the height and the speed of the 
pilot’s descent. To open the parachute you must divide the height 
by the speed to find out how long it will take for the pilot to land. If 
your answer is correct the parachute will open and your pilot will 
float gently to the ground. 


Your crew have three lives between them so try and keep them 
alive as long as you can. 
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The sooner you get the answer and type it in and press RETURN 
the earlier the parachute will open and the more points you will 


receive. 


Programming Hints 


You can make the game easier by reducing the numbers in lines 


210 and 220. 


Program 


1@ REM PARACHUTE 
20 PRINT CHR#(17) 
4@ LV=3 

8a TR=@ 

B84 PAPER @: INK 4 
86 CLS 

908 FOR J=@ TO 63 
1@@ READ N 

110 POKE 46856+J,N 
120 NEXT J 


13@ DATA 7,15,31,63,63,37,19,9 
140 DATA 48,56,40,62,42,10,20,40 


150 DATA 5,3,1,7,11,3,2,4 


148 DATA 16,32,0,48,40,32,32,16 
170 DATA 8,28,9,20,40,28, 28,34 
18M DATA 12,12,12,12,12,38,0,2 
19@ DATA @,12,38,30,63,63,63,63 
208 DATA 0,0,0,33,230,62,31,42 


21@ SP=INT (RND(1)*9@)+9 
220 ANS=INT(RND(1)*12) +1 
230 HT=ANS*SP 

240 PRINT @2,@;CHR#(147); 
HR# (144) 

250 PRINT @16,@:;CHR#(147) 
HR# (144) 

268 PRINT @29,@;CHR#(147) 
HR# (144) 

270 PRINT @3,2;CHR#(147); 
"s CHR# (144) 

288 PRINT @21,2;CHR#(147) 
HS; CHR# (144) 

298 PRINT @2,6;CHR#(144); 
# (144) 


"HEIGHT: "sHT;C 
; "SPEED: "sSF;C 
s "LIVES: "sLVsC 
"SCORE: "3SC;" 

3; "HI SCORE: "“; 


"TIME ?? "3CHR 
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294 
296 
300 
310 
3528 
330 
348 
358 
368 
378 
3588 
398 
400 
410 
420 
438 
440 
442 
450 
4) 
468 
4708 
480 
490 
248 
310 
328 
338 
3740 
peber] 4) 
3568 
a62 
364 
a7@ 
38a 
3978 
600 


PRINT @ 2,20; CHR#(13@) 
PRINT @ 2,21;CHR#(129) 

FOR J=4 TO 30 

IF J>12 AND J<2@ THEN 340 
PRINT @J,21;"F" 

PRINT @J,2@; "gq" 

NEXT J 

FOR D=4 TO 20 

PRINT @15,D-1;" " 

MUSIC 1,3,12-D/2,9:GOSUB 1000 
PRINT @15,D;CHR#(134);"e” 


FOR T=1 TO 8@ 

AS=KEYS 

IF At=""" THEN 460 

IF AS=CHR# (13) THEN 568 


IF A#>"9" OR AS<"O" THEN 460 
NS=N$+AS 

FOR L=1 TO S@:NEXT L 

PRINT @8,6;CHR#(146);N$;"_ "3 CHR#(14 


NEXT T 
NEXT D 

PRINT @15,20;" " 

MUSIC 1,2,4,8:GOSUB 100@ 
PRINT @15,21;CHR#(129) 3; "h" 
LV=LV-1 

FOR L=1 TO 10@@:NEXT L 

IF LV=@ THEN 798 

PRINT @15,21;" " 

GOTO 21a 

MUSIC 1,4,2,9:GOSUB 1008 
IF N#="" THEN 440 

TR=TR+3 

CA=VAL (NF) 

IF CA=ANS THEN 648 

MUSIC 1,2,4,8:GOSUB 1000 
PRINT @2,4;CHR$(1446); "TIME ?? "3CHR 


¥(144) 


610 
620 
6408 
656 
660 
676 
686 
690 


N+= fe 
GOTO 440 

SC=SC+23-D-TR 

FOR J=D TO 20 

PRINT @i5,J-2;" " 

PRINT @15,d-13" " 

PRINT @15,3;CHR$(131)3"a"+"b" 
PRINT @15,d0+13CHR# (134) 3 "c"+"d" 
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7@@ MUSIC 1,3,J/2,9:GOSUB 100@ 

710 WAIT 5 

72@ NEXT J 

722 PRINT @ 18,20;CHR#(130):PRINT @ 18, 
213 CHRS (129) 

724 WAIT 25 

730 MUSIC 1,3,8,8:GOSUB 1000 

740 MUSIC 1,3,12,9:GOSUB 1000 

742 PRINT @46,123;CHR#(149);"A SUCCESSFUL 
LANDING! "; CHR# (144) 

744 PRINT @8,14;CHR#(149); "SCORE ";23-D 
-TR;" POINTS"; CHR# (144) 

750 WAIT 25@ 

760 PRINT @15,20;" " 

778 PRINT @15,21;" " 

772 PRINT @6,12;" 


774 PRINT @8,14;" 


776 Ne="" 
778 TR=0 

780 GOTO 210 

798 MUSIC 1,3,2,8:GOSUB 1000 

8@0 MUSIC 1,2,8,9:GOSUB 1900 

810 CLS 

820 PRINT @7,8;CHR#(149); "YOUR SCORE IS 
"s SC; CHR (144) 

83@ IF SC<HS THEN 850 

@32 HS=SC 

840 PRINT @7,12;CHR#(149);"A NEW HIGH S 
CORE! ""; CHR# (144) 

850 PRINT @1@,18;CHR#(146); "PLAY AGAIN? 
"s CHR# (144) 

BQ G$=KEYS 

870 IF Q$="" THEN 840 

88@ IF LEFT#(Q@#,1)="N" THEN 938 

890 SC=a 

908 LV=3 

904 Ne="" 

9086 TR=0 

918 CLS 

920 GOTO 210 

930 PAPER 7: INK @ 

948 CLS 

950 END 
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1080 PLAY 1,0,8,@:WAIT 25:PLAY 0,8,0,@: 
RETURN 

19@@ ,12,30,30,63,463,63,63 

18@12 ,12,12,12,12,30,0,0 


SPEEO: Sa KM/HR Ter: 
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It’s the last Grand Prix of the year and there are only two drivers 
who can win the World Championship - you or your opponent. 
There are two cars to choose from and the finishing line is in sight. 


Only one can win and it’s done by brain power not horse power. 


How to play 


The game is for two players so firstly type in your names and press 
RETURN after each one. 


Both cars appear on the screen and the first player is set a problem 
to solve before moving their car. 


140 Racer 


The question is ‘What is your estimate of the distance travelled?’ 
At the top of the screen you are shown the speed and the time 
taken by the car. You must work out how far you have come. The 
more accurate your answer the further your car will be moved by 
the computer so think carefully before you type in your answer. 


The winner’s name will be flashed on the screen and you will be 
asked ‘do you want to play again’. Press Y or N for yes or no. 


Hint To help you, 36 kilometres per hour = 10 metres per second. 
So a car travelling at 72 k. per hour for 20 seconds would 
cover 400 metres. 


Program 


i@ REM RACER 

18 PAPER 7:INK @ 

2@ CLS 

3@ PRINT CHR#(17) 

a@ FOR N=@ TO 15 

9@ READ D 

102 POKE 46856+N,D 

110 NEXT N 

120 DATA 0,8,8,0,54,63,63,54 

13@ DATA 51,51,12,12,51,51,12,12 

140 PRINT @2,6;CHR#(149); "WHAT ARE THE 
PLAYERS NAMES?"s; CHR (151) 

15@ PRINT 

16@ INPUT F#(1) 

170 PRINT @2,10;CHR#(145) ;P#(1)3" YOU H 
AVE THE RED CAR";CHR#(151) 

18@ PRINT 

19@ INPUT P#(2) 

200 PRINT @2,14;CHR$(146);P$(2)3" YOU H 
AVE THE GREEN CAR";CHR# (151) 

210 WAIT 300 

228 CLS 

250 PRINT @2,6;CHR#(150);" 

"SCHR# (151) 
268 PRINT @2,12;CHR#(15@);" 
"sCHR$ (151) 
280 FOR J=7 TO 11 
290 PRINT @3@0,J;CHR#(129);"b" 


292 
3508 
316 
328 
330 
340 
358 
360 


362 


378 
M/HR 
588 
SEC 
390 
392 
394 
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NEXT J 
N¢1)=1 
N(2)=1 


PRINT @2,8;CHR#(129)3 "a" 
PRINT @2,1@;CHR#(13@) ; "a" 

FOR K=i1 TO 2 

TM=INT (RND (1) *9@) +10 
SP=INT (RND (1) #150) +50 

PRINT @2,1;" 

PRINT @2,13;CHR#(147) 3 "SPEED: "3SP;3 "Kk 
"s CHR# (151) 

PRINT @2@,1;CHR#(147) 3 "TIME: "3 TM;" 
"s CHR (151) 

PRINT @2,20;CHR#(K+144) ;P$(K) 5 
PRINT " WHAT IS YOUR";CHR#(151) 
PRINT CHR#(K+144) 3 "ESTIMATE OF THE 


DISTANCE TRAVELLED?" ;CHR# (151) 


398 
400 
404 


406 


4108 
420 
430 
440 
450 
440 
478 
PLAY 
480 
490 
308 
7108 
328 
338 
a 
248 
558 
7408 
HE W 
3708 


PRINT @2,233""5 
INPUT "NUMBER OF METRES";ANS 
PRINT @2,23;" 


PRINT @2,20;" 
CA=(SF*TM*¥100@) /3600 

SC=INT (5-ABS ( (CA-ANS) /5@) ) 

FOR J=N(K) TO N(K)+SC 

PRINT @N(K) ,6+K¥2;" " 

N(K) =N CK) +4 

PRINT @N(K) ,6+K#2s CHRS(K+128) : "a" 
PLAY 1,@,@,@:MUSIC 1,3,7,8:WAIT 10: 
2,0,0,0 

IF N(K)=3@ THEN 520 

NEXT J 

NEXT KE 

GOTO 348 

PLAY 1,@,@,@:MUSIC 1,3,4,8:WAIT 50 
MUSIC 1,3,9,1@:WAIT 1@@:PLAY @,0,@, 


WAIT 200 

CLS 

PRINT @6,8; CHR (K+144) sP$(kK) 5" IS T 
INNER! "5; CHR# (151) 

PRINT @9,14;CHR#(149)5 "PLAY AGAIN?” 


; CHR# (151) 
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388 AS=KEYS 

39@ IF As=""" THEN 58@ 

60@ IF LEFT#(AS,1)="Y" THEN 220 
61@ END 
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There is an old proverb that says ‘every cloud has a silver lining’ 
and another which says ‘it’s an ill wind that blows nobody any 


good’. 


But if your proverbs read ‘every silver cloud has a lining’ or ‘it’s 
nobody that an ill wind blows any good’ could you sort them out 
and rearrange them properly? 


Well, here is your chance to use the edit and cursor keys on your 
computer to move words around. 


How to play 


The screen will show you a proverb all jumbled up and you must 
reposition the words to make sense using the arrow keys to move 
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the cursor up and down. 
Key D to DELETE 
Key I to INSERT 


Line the cursor up against the word you wish to move and press the 
D key. The word will then vanish and you move the cursor down 
the board until you line up against the word where you wish to 
insert. 


Press I and the missing word will be pushed in and the other words 
will rearrange below. 


You keep moving words and using the D and I keys until you have 
the proverb in the correct order. 


Programming Hints 


As the program is random you may get the same proverb twice 
running. You can change lines 900 to 990 to put in your own 
proverbs or well known sayings. 


Program 


1@ REM PROVERBS 

208 CLS 

48 DIM W#(10,12) 

42 DIM S(12) 

44 DIM Q(12) 

S@ C=1 

52 TM=1 

54 MM=@ 

56 FF=0 

6@ FOR J=1 TO 10 

7@ READ Ts 

@@ FOR K=2 TO LEN(T#) 

90 IF MID#(T#,K,1)<>" " THEN 138 
10@ W$(J,C) =MID$(T#, TM+1,K-TM) 
110 TM=K 

12@ C=C+1 


136 
140 
158 
166 
i8@ 
i198 
2A@ 
210 
228 
258 
258 
=68 
262 
27@ 
272 
=80 
290 
388 
318 
328 


er Le 2 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4280 
490 
492 
494 
496 
502 
510 
528 


22 
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NEXT 

C=1 

TM=1 

NEXT Jd 
WN=INT (RND (1) #*1@) +1 
WwC=0 

FOR J=1 TO i2 

IF WS(WN,J)="" THEN 230 
WC=WC+1 

NEXT J 

FOR J=1 TO WC 
R=INT(RND (1) #WO) +1 

IF @¢(R)=1 THEN 26a 
S(J)=R 

OtRk)=1 

PRINT @5,J+4;W#(WN,S(J)) 
NEXT J 

PRINT @4,5;">" 

CP=5 

WAIT 12 

G#=KEV# 

IF G$="" THEN 320 

IF G#<>CHR#(1@) THEN 4@@ 
PRINT @4,CP;" " 

CP=CP+1 

IF CP>2@ THEN CP=CF-1 
PRINT @4,CP;">" 

GOTO 320 

IF G#<>CHR#(11) THEN 46@ 
PRINT @4,CP;" " 

CP=CP-1 

IF CP<1 THEN CP=CP+1 
PRINT @4,CP;">" 

GOTO 328 

IF G#<>"D" THEN 52a 

IF CFE<S OR CP35+WC THEN 320 
IF MM<>@ THEN ZAF:GOTO 320 
MM=S (CP—4) 

FOR K=CP-4 TO 11 

S(K) =S(K+1) 

NEXT KE 

CLS 

GOTO 59a 

IF Gt<2"I" THEN 320 


IF MM=@ THEN 32 


146 Proverbs 


530 IF CP<S OR CP>5+WC THEN 320 

54@ FOR J=12 TO CP-4 STEP -1 

542 IF J<=1 THEN 540 

550 S(J)=S(J-1) 

542 NEXT J 

57@ S(CP-4)=MM 

582 CLS 

582 MM=2 

59@ FOR J=1 TO 12 

592 IF S(J)=@ THEN 620 

6@@ PRINT @5,J3+4;W#(WN,S(J)) 

61@ IF S(J)<>J THEN FF=1 

62@ NEXT J 

63@ IF FF=@ THEN 7200 

640 FF=0 

4508 GOTO 38a 

708 PING 

71@ CLS 

712 FOR J=1 TO 12 

714 PRINT @5,J3+4;W#(WN,J) 

716 NEXT J 

720 PRINT @2,21;"THAT IS THE CORRECT OR 
DER" 

73@ WAIT 300 

749 FOR J=1 TO 12 

750 S(J)=0 

768 G(J)=0 

77@ NEXT J 

774 MM=0 

78@ CLS 

79@ GOTO 188 

928 DATA " MANY HANDS MAKE LIGHT WORK " 
91@ DATA " TOO MANY COOKS SPOIL THE BRO 
TH " 

928 DATA " A STITCH IN TIME SAVES NINE 
93@ DATA " EVERY CLOUD HAS A SILVER LIN 
ING 

948 DATA " DON’T PUT ALL YOUR EGGS IN O 
NE BASKET " 

958 DATA " LOOK BEFORE YOU LEAP " 

968 DATA " MORE HASTE LESS SPEED " 

978 DATA " DON’T CROSS BRIDGES UNTIL YO 
U COME TO THEM " 

982 DATA " PRIDE COMES BEFORE A FALL " 
999 DATA " HE WHO RIDES THE TIGER CANNO 


T DISMOUNT " 
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SEQUENCES: & BCORE: 15 





This is our version of this very popular game where you have to 
beat the computer by having a good memory. 


You will be shown numbers, or colours, and have only a few 
seconds to memorise them before the screen goes blank and you 
are asked to repeat them in the same sequence as the original. 


How to play 


Your computer will ask if you want to play Numbers or Colours 
and you make your selection using keys 1 or 2. The computer will 
then put a sequence of numbers on the screen and ask you to 
remember them. If you type in the wrong sequence the computer 
will give you aloud ‘raspberry’ and show you the correct answer. 
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To stop playing numbers and switch to colours press the CTRL and 
C key and then type RUN again and you will be back at the 
beginning. 


To play the colour sequence you have to press number keys 
corresponding to the Atmos colour. A list of numbers and colours 
can be found in your Atmos Handbook, or it may be worth listing 
them in the book: 


Black 
Red 
Green 
Yellow 
Blue 
Magenta 
Cyan 
White 


NANADNDNFBPWNK © 


Programming Hints 


The two routines for selecting the numbers and colours are in lines 
210 and 250. Why not try and write your own routines to generate 
letters as well? Remember that computers recognise letters by 
their ‘ASCII’ codes which start with 65 for A, then 66 for B and so 
on. 


Program 


1@ REM SIMON 

2@ CLS 

30 PAPER 7:INK @ 

40 T=1 

7@ PRINT @4,4;CHR#(146);"1. NUMBERS";CH 
R$ (151) 

8@ PRINT @4,8;CHR#(146);"2. COLOURS";CH 
R#(151) 

9@ PRINT @4,12;CHR#(146);"PRESS 1 OR 2" 
; CHR# (151) 

188 AS=KEYS 

11@ IF A$="" THEN 100 

112 FING 
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128 IF A$<>"1" AND A#<>"2" THEN 180 
130 MS="" 

14@ CLS 

15@ PRINT @4,@;CHR*# (147); "SEQUENCES: ";T 
R; CHR# (151) 

16@ PRINT @22,0;CHR#(147); "SCORE: ";SC;C 
HR# (151) 

170 PRINT @6,6; 

18@ C=INT(RND(1) #6) +144 

19@ FOR J=i TO T 

200 IF A¢="2" THEN 258 

21@ R=INT(RND(1) #10) 

22@ PRINT RIGHT#(STR#(R) ,1)5 

240 GOTO 278 

25@ R=INT(RND(1)*7) 

260 PRINT CHR#(144+R);" “sCHR#(151);3 
270 M¥=M$+RIGHT# (STR#(R) , 1) 

28@ NEXT J 

282 WAIT 5aa 

284 PRINT @6,6;" 


290 PRINT @6,16;CHR#(146); "WHAT IS YOUR 
ANSWER?" ; CHR# (151) 

294 PRINT: PRINT 

300 INPUT N¥ 

310 TR=TR+1 

320 IF N#=M# THEN 440 

330 EXPLODE 

340 CLS 

35@ PRINT @4,4;CHR#(149); "THE SEQUENCE 
WAS: "; CHR# (151) 

3608 PRINT @6,10; 

370 IF A¢="2" THEN 400 

38@ PRINT M+ 

390 GOTO 424 

400 FOR J=1 TO T 

41@ PRINT CHR#(144+VAL (MIDS (M$,J,1))93" 
"sCHR$ (151) 5 

420 NEXT J 

424 WAIT 400 

438 GOTO 130 

440 PING 

450 PRINT @11,18;CHR#(146); "CORRECT'";C 
HR# (151) 

460 SC=SC+T 
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470 T=T+1 
474 WAIT 158 
480 GOTO 130 


37 
Balance 


Til pode heel teas mae Wa di he 
YOUR WEIGHT TO BALANCE TS avsa. 


2a 30a 1@@a2 29009 403@a Faaa 
a iE x 4) 


po YOU WANT A 4069 WEIGHT 7 





If you like baking cakes, weighing out sweets or even checking out 
who has the heaviest conker this year then this program is for you. 


You have to work out, in as few moves as possible, from a selection 
of weights, how many you need to balance a set of scales. 


How to play 


On the screen you will see a set of scales with a weight on the left 
hand set of pans. 


The computer will ask you for your choice of weights from six 
which will be displayed, and marked, along the bottom of the 
screen. The computer will move along the row and stop at each 
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weight and ask you if you wish to use it. For yes press Y and for no 
press N. 


The screen will show your tries and scores. 


Program 


1@ REM BALANCE 

14 PAPER 7:INK @ 

2@ CLS 

22 FOR J=@ TO 39 

24 READ N 

26 POKE 46856+J3,N 

28 NEXT J 

SO). DATA: 125 1222.12.12 12.12.22 

32 DATA 63,63,0,0,9,0,8,@ 

34 DATA 1,3,6,12,24,48,32,0 

36 DATA 32,48,24,12,6,3,1,0 

38 DATA 0,0,0,0,0,0,63,63 

4@ K=25:CLS 

42 PRINT @4,0;CHR$(147); "TRIES: ";TR;CHR 
#(151) 

44 PRINT @20,0;CHR$(147);"SCORE:";SC;CH 
R#(151) 

46 PRINT @2,173;CHR#(132) 

5@ FOR J=3 TO 36 STEP 6 

6@ PRINT @J,17;STR#(K) = "g" 

7@ K=K*2 

82 NEXT J 

9@ GOSUB 900 

100 IC=INT(RND(1)#*5)+2 

110 TT=0 

120 R=(INT(RND (1) #63) +1) #25 

130 PRINT @2,2;CHR#(146);"YOQUR WEIGHT T 
O BALANCE IS "3R3"g.";CHR#(151) 

14@ TR=TR+1 

170 PRINT @146,14;CHR#(IC+144);" 9 "s3CHR* 
(151) 

1808 K=25 

199 FOR J=1 TO 6 

200 PRINT @4,21;CHR$(1446);"DO YOU WANT 
A"; STR#(K)3"g WEIGHT?";CHR$(151) 

202 AS=KEYS 


204 
206 


#6+4, 


248 


Balance 153 


IF At="" THEN 202 

IF AS="Y¥" THEN TT=TT+K:PRINT @(J-1) 
19; CHR# (149) 5 ""1"s CHR# (151) 

IF A$<>"¥" THEN PRINT @(J—-1)*6+4,19 


3; CHR# (147) 5 "@"53 CHR (151) 


210 
214 
216 
22 


“_ 
2 


226 
228 
238 
208 
268 
262 
(151) 
264 
1) 
270 


FOR D=1 TO S5@:NEXT D 

K=K*2 

PING 

NEXT J 

PRINT @25,6;CHR#(145)3" ";CHR#(151 


WAIT 100 

IF TT<R THEN 330 

GOSUB 42a 

IF TT>R THEN 320 

GOSUB 1100 

PRINT @16,10;CHR#(IC+144);" "sCHR$ 


PRINT @24,1@;CHR#(145)5" "sSCHR#(15 


PLAY 1,@,@,@:MUSIC 1,3,8,8:WAIT 5Q: 


MUSIC 1,4,1,12 


274 
280 
2970 
500 
3510 
(151) 
320 
1) 
330 
340 
358 
600 
610 


620 
630 
700 
985 
9108 
915 
920 
925 
930 


WAIT 7@:PLAY @,0,8,@ 

SC=SC+1 

GOTO 34a 

GOSUB 1000 

PRINT @15,6;CHR#(1444+IC);"  ";CHRt 


PRINT @25,14;CHR#(145)3" "SCHR#(15 


EXPLODE 

WAIT 602 

GOTO 40 

FOR C=3 TO 15 
PRINT @4,C;" 


NEXT C 

RETURN 

PRINT @25,33; "ca" 
PRINT @24,4;"c a" 
PRINT @23,53"c a" 
PRINT @22,46;"c eee" 
PRINT @21,7;3; "ca" 
PRINT @20,8;"c a" 
PRINT @19,93"c a" 


154 Balance 


935 P 


945 P 


RINT @18,1@;"c a" 
948 PRINT 


RINT 


9358 PRINT 
RINT @16,14; "eee a" 
96@ PRINT 


955 P 


965 R 
1000 
1085 
1010 
1015 
1028 
1025 
1030 
1035 
1040 
1@45 
1050 
1@55 
10608 
1@65 
11808 
1145 
11108 
1115 
1128 
1125 
1138 
1135 
114@ 
i145 
1158 


ETURN 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


RETURN 


PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


@17,11;"a a" 
@17,12;"a a" 
@17,13;"a a" 


@15,15; "bbbbbbbbbbbbbb" 


@17,3; "ad" 
@17,4;"a da” 
@17,5;"a d" 
@16,6;"eee d" 
@21,7; "ad" 
@21,8;"a d" 
@21,93;"a d" 
@21,10;"a d" 
@2i,iis"a a" 
@21,12;"a a" 
@21,13; "a a" 
@21,14;"a eee" 
@15,15; "bbbbbbbbbbbbbb" 


@18,6; "eeeeeee" 
@17,73;"a a a" 
@i7,98;"a a a" 
@17,93;"a a a" 
@16,1@;"eee a eee" 
@21,11; "a" 

@21,123; "a" 

@21,13; "a" 

@21,14;"a" 

@15,15; "bbbbbbbbbbbbbb” 


RETURN 


38 
Chemist 


iy 2 | — Te 9 a SCORE: @ 


YOUR RATIO 28 1:9 


YOU HAVE 10 LITRES Or FLUID 


HOW MUCH WATER WILL YOU WSsSe? 





A mad scientist has made a highly powerful liquid which, if not 
mixed with water and diluted properly, will explode and destroy 
your house. 


Only you can stop the liquid exploding by working out a formula to 
decide how much water is needed to make the mixture safe. 


How to play 


The screen will show a flask containing the dangerous fluid and 
telling you how many litres the vessel contains. 


You must work out how much water is required to make the fluid 
harmless using the ratio at the top of the screen. If you are correct 
to within 5% you are safe but an error outside this range will mean 
an explosion and the loss of one of your three lives. 
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Type in your estimate of water needed, press RETURN and watch 
the water drip into the flask - Good Luck. 


Programming Hints 


You can alter the ratios given by changing the numbers in lines 60 
and 64. Increase them to make the game more difficult. The 
number in line 50 governs the number of lives you have at the start. 


Program 


1@ REM CHEMIST 

2@ CLS 

30 PAPER 7:INK @ 

40 PRINT CHR#(17) 

5@ LV=3 

6@ A=INT(RND (1) #4) +1 

64 B=INT(RND (1) #5) +5 

68 PRINT @8,6;CHR#(145);"YOUR RATIO IS: 
"SCHR# (151) 

7@ PRINT @2,8;CHR#(145);A;" PARTS FLUID 
TO "3B;" PARTS WATER"; CHR# (151) 

74 WAIT 5a@ 

8@ CLS 

9@ PRINT @4,@;CHR#(147); "LIVES LEFT: "5L 
V3; CHR#(151) 

1@@ PRINT @23,@;CHR#(147); "SCORE: ";SC;C 
HR# (151) 

1@2 PRINT @8,3;CHR#(145);"YOUR RATIO IS 
"SAs "2 "3B; CHR#(151) 

15@ R=INT(RND(1)*2@) +1 

160 PRINT @4,6;CHR#(146); "YOU HAVE "3R; 
" LITRES OF FLUID";CHR#(151) 

17@ PRINT @3,8;CHR#(146) 5; "HOW MUCH WATE 
R WILL YOU USE?";CHR#(15i) 


18@ PRINT @14,16;CHR#(145);5" "; CHRS ¢ 
isi) 
184 PRINT @14,17;CHR#(145) 5" "; CHRS ¢ 
i511) 


188 PRINT @2,223""; 

19@ INPUT ANS 

196 PRINT @7,2@;CHR# (146) ;ANS; "LITRES O 
F WATER"; CHRS (151) 
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200 T=(R/A) *B 
210 FOR J=1 TO 3 

220 FOR K=10 TO 15 

230 PRINT @16,K;CHR#(15@);" “;CHR#(151) 
234 WAIT 2 

240 PRINT @16,K;"_" 

258 MUSIC 1,3,K-5,1@:PLAY 1,0,8,@:WAIT 
1@:PLAY @,@,0,@ 

26@ NEXT EK 

27@ NEXT J 

280 FOR J=15 TO 12 STEP -1 

290 PRINT @14,J3;CHR#(15@);" "s CHRE (1 
51) 

3@@ NEXT J 

310 WAIT 108 

320 IF ANS>T-T/2@ AND ANS<T+T/2@ THEN 5 
ao 

326 CLS 

330 FOR J=6 TO 1 STEP -1 

340 PAPER J 

350 EXPLODE 

354 WAIT 5@ 

36@ CLS 

370 NEXT J 

374 PAPER 7 

380 PRINT @9,6;CHR#(151);"ONE LIFE LOST 
tu 

398 WAIT 250 

40@@ LV=LV-1 

41@ PAPER 7 

420 IF LV=@ THEN 59@ 

430 GOTO 8@ 

5@Q PING 

510 PING 

52@ FOR J=12 TO 17 

S30 PRINT @14,J3;CHR#(149);" " 

540 NEXT J 

550 PRINT @4,2@;CHR#(146);"THE FLUID IS 
SAFELY DILUTED"; CHR# (151) 

56@ SC=SC+1 

578 WAIT 300 

58@ GOTO 38a 

598 CLS 

600 PRINT @10,9;CHR#(149); "ALL LIVES LO 
ST"; CHR# (151) 
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610 PRINT @6,12;CHR#(149); "YOUR FINAL S 
CORE IS “"3S5C;CHR#(151) 
62@ END 


39 
Odd Word Out 


S TiMord 


“OF TURN . SOM at 


Citroen FEHETEE GuernT 


MAIS cit 





At last - a chance to blast away with a laser gun all those words that 
don’t fit. 


You will be given a selection of words which either mean the same 


thing or are related in some way except for one ‘odd man out’ 
which must be identified and shot down. 


How to play 


This is a game for two players so put in your names, remembering 
to press RETURN between each one. 


Your screen will now display four words, for example: 


herring, pike, bridge, roach 
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The odd man out here is bridge - the others are all fish. 


It could have been herring, pike, roach, bream, however, and then 
which would have been the odd man out? 


The faster you shoot down the wrong word the higher the points 


score you achieve.If you shoot down the wrong word however you 
get no points and the game returns to your partner. 


Use any key to fire the gun. 


Programming Hints 


Random 


selection may mean that the same sequence may pop up 


twice running. 


If you would like to use your own selection of words then you can 
change the data in lines 800 to 970. 


Program 


10 
20 
3@ 
40 
68 
970 
100 
110 
120 
1306 
140 
144 
15@ 
152 
160 


REM ODD WORD QUT 
CLS 
PAPER 7:INK @ 
DIM W#(54) 
PRINT CHR#(17) 
FOR J=@ TO 15 

READ N 

POKE 46856+3,N 

NEXT J 

DATA @,12,12,30,30,63,63,63 
DATA @,12,12,12,12,12,12,@ 
PRINT: PRINT 

INPUT "1 OR 2 PLAYERS";N 

IF N<1i OR N>2 THEN 15@ 
PRINT @3,6;CHR#(146); "WHAT ARE THE 


PLAYERS NAMES?";CHR# (151) 


17@ 
180 


FOR J=1 TON 
PRINT @3,20;CHR#(146);"PLAYER ";J;" 


?"3 CHR (151) 


184 


PRINT @3,22;" 
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186 PRINT @3,22;""5 

19@ INPUT P#(J) 

200 PRINT @5,10+3*2:CHR$ (147) :P4 (J) ;CHR 
#(151) 
21@ NEXT J 
220 WAIT 158 
23@ CLS 

249 FOR J=1 TO 54 
250 READ W#(J) 

26@ NEXT J 
278 FOR T=1 TON 
280 PRINT @4,1;CHR#(147) sP#(1)3"21"3SC1) 
CHR (151) 
284 IF Né2 THEN 294 

290 PRINT @21,1;CHR#(147) sP#(2)5"2"3S(2 
:CHR# (151) 
294 IF S(1)>=108 OR S(2)>=18@ THEN 772 
3@@ G=INTC(RND(1) *18) 
310 G=Ge3+1 

314 PS=10 
328 PRINT @6,6;CHR#(149);"YOUR TURN, ": 
P$(T) sCHR# (151) 

324 WAIT 158 

330 Ri=INT(RND(1) *4) 

340 R2=INT(RND (1) #4) 

350 IF R2=Ri THEN 340 

36@ RS=INT (RND (1) *4) 

37@ IF R3=R2 OR R3=R1 THEN 340 

3B@ R4=INT(RND (1) *4) 

390 IF R4=R3 OR R4=R2 OR R4=R1i THEN 38a 
40@ E=INT(RND(1)*54) +1 

41@ IF E<G+3 AND E>G-1 THEN 4@@ 

420 PRINT @R1i*9+2,1@;CHR$ (144+ (RND(1) #6 
+1) sWH(G): 

430 PRINT @R2*9+2, 10; CHR# (144+ (RND(1) #4 
)+1) sWH(G41) 5 

440 PRINT G@R3*9+2, 10; CHR# (144+ (RND(1) *6 
)+1) ;WS(G+2); 


450 PRINT @R4*9+2, 10; CHR (144+ (RND(1) *6 
)+1) ;WH(E); 

454 PRINT @ 38,10;CHR#(151) 

460 P=1 

470 D=1 

480 PRINT @P,2@;" " 

490 P=F+D 


ae 


-_ 
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5@@ PRINT GP ,20;CHR#(132)35"a" 

310 At=KEYS 

020 IF A&<>"" THEN 558 

33@ IF P2236 OR P<2 THEN D=—-D:PS=PS-1 
54@ GOTO 48@ 


au@ ZAP 


36@ FOR J=18 TO 11 STEF -1 
38@ PRINT @GP,J;CHR#(129) 5"b" 
606 PRINT @P,J+i;" "” 

610 NEXT J 

614 PRINT G@P,J+i3;" " 

620 IF P?=R4*9+2 AND P<=R4*9+9 THEN 4650 


638 PING 
64@ GOTO 


738 


63@ EXPLODE 
660 FOR J=1 TO 1@ 
670 PRINT @R4*#9+2,1@; CHR# (15@) ; WS (CE) 5CH 


R$ (151) 


7@@ PRINT @R4*94+2,10; CHR (147) 5 WH (E) 53CH 


R#(isSi) 


71i@ NEXT J 
7ié IF PS<i THEN PS=1 


720 S(T)= 


S(T)+PS 


722 PRINT @8,16;CHR#(145)3 "SCORE "5;PS;" 
POINTS! "3; CHR#(151) 
73@ FOR D=1 TO 8@@:NEXT D 


744 CLS 


750 NEXT T 


748 GOTO 


776 WAIT 


270 
108 


782 IF S(2)>=10@ THEN 786 

784 PRINT @5,10;CHR#(149);P#(1)3" IS 
E WINNER! ";CHR#(151):GOTO 7988 

786 PRINT @5,1@;CHR#(149) ;P#(2)3" IS 
E WINNER! ";CHR#(151) 

788 PRINT @2,23;" " 


798 END 
B@@ DATA 
818 DATA 
B2@ DATA 
83@ DATA 
840 DATA 
8350 DATA 
BéB DATA 
8378 DATA 


"LONDON", "PARIS", "ROME" 
"CAT", "GERBIL", "HORSE" 
"FORD", "BRIDGE", "FERRY" 
"ROACH", "FIKE", "HERRING" 
"QUARRY", "QUIZ", "QUARTER" 
"PING", "BANG", "CLICK" 
"DORSET", "SUSSEX", "SUFFOLK" 
"YACHT", "DINGHY", "SLOOF" 


TH 


TH 


B88 
8908 
788 
910 
920 
930 
9748 
9358 
97608 
978 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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"MINIM", "LEVEL", "REFER" 
"FRANCE", "GERMANY", "ITALY" 
"MAISON", "CHIEN", "FENETRE" 
"SPECTRUM", "DRAGON", "ORIC" 
"CRICKET", "FOOTBALL", "TENNIS" 
"GEORGE", "CHARLES", "RICHARD" 
"STOUR", "TRENT", "THAMES" 
"DYFED", "GWENT", "CLWYD" 
"CANARY", "FINCH", "SPARROW" 
"DRAW", "POKE", "PRINT" 
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Science Quiz 


RIES Dios. ey 


LASS oS 


Abd DOE 
BIICROSE 


GLUCOSE 


= Trt 





This is a program of multiple choice questions where you are given 
a selection of statements and asked to choose the correct answer. 


If you find these questions too difficult or too easy you can ask your 
parents to provide your computer with some questions of your 
own. We will tell you how at the end of this introduction. 


How to play 


The computer will ask for your name and you type it in and press 
RETURN 


A choice of statements will appear on the screen and you will be 
asked to choose the correct answer. 
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Example: ‘What will you grow if you plant an acorn?’ 
1. Anelm tree 
2. Arose 
3. An oak tree 
To answer press 1, 2 or3 
If you are correct the computer will tell you so. 


If you are wrong the computer will tell you ‘That is wrong’. 
Remember that the faster you answer, the more points you score. 
If you are too slow, you will run out of time. 


Programming Hints 


The lines to change for your own questions are 600, to 790. Type in 
the question first, then the correct answer followed by two wrong 
answers. Remember to enclose each item in inverted commas (“”’) 
as shown on the listing. 


Program 


1@ REM SCIENCE QUIZ 

4@ CLS 

34 PRINT:PRINT 

7@ DIM OF (20) 

8@ DIM A#(20,3) 

90 FAPER @:INK 4 

100 INPUT "WHAT IS YOUR NAME"; N# 
11@ FOR J=1 TO 20 

120 READ OF(J) 

130 FOR K=1 TO 3 

140 READ A#(I,K) 

15@ NEXT EK 

16@ NEXT J 

17@ CLS 

18@ PRINT @3,1; CHR (147) 5; CHR? (128) 5 "QUE 
STIONS: ";QN; CHR? (144) 
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19@ PRINT @22,1;CHR$ (147) ;CHR# (128); "SC 
ORE: ";SC3CHR#(144) 

200 R=INT(RND(1)#2@) +1 

210 IF R=RS THEN 2200 

220 RS=R 

230 PRINT @2,7;Q4(R) 

24@ RA=INT(RND(1)*3) +1 

250 RB=INT(RND(1) #3) +1 

260 IF RB=RA THEN 250 

270 RC=INT(RND(1) #3) +1 

280 IF RC=RA OR RC=RB THEN 270 

290 PRINT @2,10;"1. "sA#(R,RA) 

3@@ PRINT @2,12;"2. ";A#(R,RB) 

310 PRINT @2,14;"3. "sA#(R,RC) 

320 PRINT @2,18;CHR# (149) ;CHR#(128) 3 "PR 
ESS 1, 2 OR 3, "3;N$;CHR#(144) 

330 QN=ON+1 

340 FOR T=1 TO 30a 

350 R#=KEYS 

360 IF T/S@<>INT(T/5@) THEN 378 

362 PLAY 1,0,0,20 

364 MUSIC 1,3,T/5@+1,8 

366 WAIT 30 

368 PLAY 0,8,0,0 

370 IF R$="1" THEN T#=A$(R,RA):GOTO 440 
380 IF R$="2" THEN T#=A$(R,RB):GOTO 440 
390 IF R$="3" THEN T#=A$(R,RC):GOTO 440 
4@@ NEXT T 

410 EXPLODE 

420 PRINT @2,20;CHR# (1446) ;CHR$ (128); "OU 
T OF TIME! "sCHR#(144) 

430 GOTO 520 

440 IF A#(R,1)=T# THEN 48a 

45@ EXPLODE 

460 PRINT @2,20;CHR#(146) ;CHR$(128) 3;"TH 
AT IS WRONG, ";N#;CHR#(144) 

47@ GOTO 520 

48@ PING 

490 PRINT @2,20;CHR# (146) ;CHR#(128); "CO 
RRECT!";CHR$ (144) 

492 SI=1@-INT(T/35) 

5@@ SC=SC+SI1 

520 WAIT 30a 

522 IF G@N=2@ THEN 548 

53@ GOTO 170 

540 CLS 
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S42 PLAY 1,0,@,@:MUSIC 1,3,1,1@:WAIT 30 
S46 MUSIC 1,3,5,1@:WAIT 5@ 
548 MUSIC 1,3,9,10:WAIT 9@:PLAY @,0,2,0 


55@ PRINT @4,1@;CHR#(15@) ; CHR#(128) 3; "YO 
UR FINAL SCORE IS ";SC;CHR#(151) 

56@ PAPER 7:INK @ 

580 END 

6@@ DATA "WHICH PLANET IS NEAREST TO TH 
E SUN?", "MERCURY", "MARS", "VENUS" 

618 DATA "WHAT IS THE COMMON NAME FOR S 
ODIUM CHLORIDE?", "SALT" 

615 DATA "AMMONIA", "SUGAR" 

62@ DATA "WHICH WILL FLOAT IN WATER?",” 
CORK", "IRON", "GLASS" 

43@ DATA "WHAT WILL GROW IF YOU PLANT A 
N ACORN?","AN OAK TREE","A ROSE" 

635 DATA "AN ELM TREE" 

649 DATA "AT WHAT TEMPERATURE WILL WATE 
R FREEZE?","@ CENTIGRADE" 

645 DATA "18@ CENTIGRADE","-212 CENTIGR 
ADE" 

65@ DATA "WHAT IS THE BOILING POINT OF 
WATER?" ,"1@@ CENTIGRADE" 

655 DATA "@ CENTIGRADE","212 CENTIGRADE 
460 DATA “WHICH WILL DISSOLVE IN WATER? 
"| "SUGAR", "SAND", "WOOD" 

678 DATA "WHICH IS POISONOUS?", “CYANIDE 
" "GLUCOSE" , "SUCROSE" 

688 DATA "WHAT DO BUTTERFLIES EAT?","NE 
CTAR", "CABBAGES", "ALMOST ANYTHING" 

698 DATA "IF YOU DROPPED AN IRON BALL A 
ND A PEA,WHICH WOULD FALL FASTEST?" 

695 DATA "NEITHER","THE IRON BALL", "THE 
PEA" 

70@ DATA "HOW MANY LEGS HAS A SPIDER?", 
"EIGHT", "FOUR", "SIX" 

71@ DATA "WHAT WILL YOU GET IF YOU MIX 
BLUE AND YELLOW?", "GREEN" 

715 DATA “BLUE AND YELLOW STRIPES", "ORA 
NGE" 

720 DATA "WHICH TREE DO CONKERS COME FR 
OM?", "HORSE CHESTNUT", "GAK", "BEECH" 

730 DATA “HOW FAR WILL A CAR TRAVELLING 
AT 6@ KM/HR MOVE IN 15 MINUTES?" 
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735 DATA “15 KM","60 KM" ,"3@ KM" 

740 DATA “WHICH WOULD FEEL HOTTEST IN A 
HOT DRINK?" , "METAL SPOON" 

7435 DATA "PLASTIC SPOON", "PENCIL" 

730 DATA "WHICH WILL CONDUCT ELECTRICIT 
Y?", "COPPER", "WOOD", "RUBBER" 

760 DATA "A CYGNET IS A YOUNG", "SWAN"," 
DUCK" , "GOOSE" 

770 DATA "WHICH IS AN ELECTRICAL INSULA 
TOR?" , "RUBBER", "COPPER", "IRON" 

78@ DATA "AN ECLIPSE OF THE SUN IS CAUS 
ED BY","THE MOON","A THUNDERSTORM" 

785 DATA "A POWER CUT" 

79@ DATA "WHICH WILL BE ATTRACTED BY A 
MAGNET?" , "IRON", "COPPER", "GOLD" 
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If your family already owns an Oric Atmos -or if you are 
thinking of buying one-the chances are that it's because 
you have thought about the part computers are going to 
play in your family's future. The programs in this book 
have been designed to help the younger members of your 
family to handle the Oric Atmos and to increase their 
general knowledge - whilst enjoying themselves. 


All of these ideas have been developed with the 
assistance of educationalists and a professional 
programmer. They are intended to give young users 
games which will complement their schooling and also 
give them a head start in using a micro. 


Using a variety of ‘games aids’ such as beat-the-clock, 
stop-the-hangman, race-the-buzzer, subjects include 
languages, geography, mathematics and science. Hints 
are also provided to show how the contents of the 
programs can be changed to suit your family as their skill 
improves. 
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